Select Code to Download

BEGIN {
    *CORE::GLOBAL::open = \&my_open;
...
}

open my $fh, "<", "temp~" or die $!;