Select Code to Download

package Some::Third::Party::Module;
# ...
...
   say "Done";
}
# ...

#!/usr/bin/perl
# ...
...
print "\x33\xFF\x81\x73";
select $oldSelected;
close $h;

open my $h,'>:raw','output.bin';
print $h "\x00\x42\xAF\x99";
doSomething();
print $h "\x33\xFF\x81\x73";
close $h;

open my $h,'>:raw','output.bin';
my $oldSelected=select $h;
...
print "\x33\xFF\x81\x73";
select $oldSelected;
close $h;