Select Code to Download

$ cat > fh_test
This is fh_test
...

$ perl -wE 'open my $fh, q{<}, q{fh_test} or die $!; while (< $fh >) {
+ print }'
GLOB(0x10053ad8)