if($cmd[0] eq "tail") { open(TAIL,"|tail -f /var/log/messages"); my $tailing = 1; sub __int_tail { $tailing = 0; } $SIG{'INT'} = \&__int_tail; while($tailing) { while() { print $_; } } return 0; }