#!/usr/bin/perl -w

use Time::HiRes;

$SIG{"ALRM"}=\&sigAlarm;

my $interval=1;
my $uInterval=$interval*10**6;
Time::HiRes::ualarm($uInterval, $uInterval);
open TAIL, "tail -f xyz|" or die 'couldnt open xyz';
while (1)
{
  while ($line=<TAIL>)
  {
      $X = $!;
      print $line;
  }
  if (eof(TAIL)) {
    print "EOF TAIL!\n";
  }
  print "Fell through... $!\n";
}

sub sigAlarm
{
    print "alarm\n";
}