#!/usr/bin/perl


$SIG{ALRM} = sub {alarm(0);print "blah\n";alarm(10);};


open(FILE, "tail -f /var/log/messages|");
$| = 1;
alarm(10);

while(<FILE>){
        print $_;
}