Select Code to Download

$ perl -E'
   my $fh = \*STDOUT;
...
0
1
1

perl -E'
   open my $fh, ">&", *STDOUT or die;
...
0
0
0

$ perl -E'
   local *STDOUT;
...
0
0
1

$ perl -E'
   local *STDOUT;
...
0
1
0