#!/usr/bin/perl -s

$SIG{ALRM} = \&check_for_activity;
alarm 1;

sub check_for_activity {
    $debug and print time-$last_activity,"\n";
    if(time-$last_activity > 10) {
	system @ARGV;
	$debug and print "command run\n";
    }
    alarm 1;
}

$last_activity=time;
while(<STDIN>) {
    $last_activity=time;
}