# little File::Tail demo
use Time::HiRes qw( gettimeofday );
use File::Tail;

$| = 1;

my $tail = File::Tail->new( name => './test', maxinterval => 0.1 );

my $usec;
my $sec_since_epoch;
my $line;

while ( defined( $line = $tail->read() ) ) {
  ( $sec_since_epoch, $usec ) = gettimeofday();
  printf "%d.%d\n", $sec_since_epoch, $usec;
}