Can select($rout,....) be made to block on EOF

Hi experts,

My intention is to monitor multiple files for new data to read. For this I use select($rout,....) with a timeout of undef, which blocks until at least one file is ready for reading. Unfortunately, select($rout,....) also seems to return when a file has reached EOF. The following code, in which I was expecting select($rout,....) to block until new data is appended to the end of the file, returns immediately (with no data):

#####################
#!/usr/bin/perl -w

use strict;
use IO::File;
use IO::Select;

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

my $fh = IO::File->new($ARGV[0], O_RDONLY | O_NONBLOCK);
sysseek($fh, 0, SEEK_END);         # See? I'm at end of file
$select->add($fh);

my @ready = $select->can_read(undef);
my $char;
$ready[0]->sysread($char, 1);     # non-blocking read
print "The next char is ", $char, "\n";

#####################

My question is, can select($rout,....) be made to block at EOF until new data appears? Or will I have to resort to polling?