Select Code to Download

$ /opt/perl/bin/perl -v
This is perl, v5.8.7 built for cygwin-thread-multi-64int
...
msg 1: len=5
Eject the media then press Enter
msg 2: cnt=99809957 rc=undef: 9: Bad file descriptor

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

use strict;
use warnings;
...
   $bangn=$!+0; $bangs=$!;
   die "Close failed: $bangn: $bangs\n";
};