Select Code to Download

use strict;
sub open {
...
else {
  warn 'Failed';
}

main::open($AFILE = IO::File->new(), "<$file")