Select Code to Download

# TOTALLY UNTESTED!!
no warning 'redefine';
...
END{
     print "Files already opened:\n", map {"fileno $_ $fhs{$_}\n"} sor
+t keys %fhs;
}