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";