Select Code to Download

$ cat 11144614.pl 
#!/usr/bin/env perl
...
(open($HFILE, '>', $hfile) or die("${hfile}: $!"));
print({$HFILE;} "#Usage: foo.pl\n");
11144614.pl syntax OK