Select Code to Download

#!/usr/bin/perl -w

...
while (defined($line=$file->read)) {
    print "$line";
}

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

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