Select Code to Download

for (;;) {
  undef $!;
...
  }
  # ...
}

#!/usr/bin/perl 
sub doit {
...
doit $0, 5;   
doit $0, 6;  
doit $0, undef;

n=5 s=I/O error
n=6 s=No such device or address
n=0 s=