# Check for new File::Tail object every $timeout seconds.
my $timeout = 60;

for (;;) {
    my (undef, undef, @pending) =
        File::Tail::select(undef, undef, undef, $timeout, $file);

    for (@pending) {
        my $line = $_->read();
        print $line;
    }
}