如何在Perl中使用timeout-on-read实现'tail -f'？

#!/usr/bin/perl

use strict;
use warnings;
use IO::Select;
use IO::Handle;

my $file = "example.log";
my $timeout = 5;

open(my $fh, "<", $file) or die "Can't open $file: $!";
$fh->seek(0, 2);

my $select = IO::Select->new();
$select->add($fh);

while (1) {
    my @ready = $select->can_read($timeout);
    if (@ready) {
        my $line = <$fh>;
        print $line if defined $line;
    } else {
        print "Timeout\n";
    }
}

close($fh);