#!/usr/bin/perl -w

use File::Tail;
$file=File::Tail->new("/tmp/xxx");
while (defined($line=$file->read)) {
    print "$line";
}

##</code><code>##

use File::Tail;
$file=File::Tail->new("/tmp/xxx");
print "opened\n";
$line=$file->read;
print "after read\n";
print "$line";

##</code><code>##

use File::Tail;
$file=File::Tail->new(name=>"/tmp/xxx", debug=>99, interval=>1, maxinterval=>1) or print "ERROR1: $!\n";
print "ERROR2: $!\n";
print "opened\n";
$line=$file->read;
print "after read\n";
print "$line";