#!/usr/bin/perl -w

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