..
my $myBuf;
my $selector = IO::Select->new(\*DisplayIO);
if ($selector->can_read(3)) { # 3 second timeout.
   sysread (DisplayIO, $myBuf, 1);
   print "Buffer returned : $myBuf\n"
} else {
   print "Nothing in buffer\n";
}
..