$ /opt/perl/bin/perl tttt sysread
Eject the media then press Enter
msg 2: cnt=0 rc=undef: 0:

$ /opt/perl/bin/perl tttt read
Eject the media then press Enter
msg 2: cnt=0 rc=undef: 9: Bad file descriptor
Close failed: 9: Bad file descriptor

$ /opt/perl/bin/perl tttt readline
Eject the media then press Enter
msg 2: cnt=0 rc=undef: 9: Bad file descriptor