Select Code to Download

use subs 'open';
sub open
...
    print "opening file: @_\n";
    CORE::open(@_);
}

    CORE::open($_[0], $_[1]);

use subs 'open';

...
    print "error info: $!\n" if $!;
    print "more error info: $^E\n" if $^E;
}