Select Code to Download

use strict;
use warnings;
...
} else {
   print("\$! is not defined\n");
}

use strict;
use warnings;
...

close($fh)
   or warn("Unable to read file \"$file_name\": $!\n");