Select Code to Download

# Sort so that alpha keys come first, then numerics
map $_->[1],
...
       or $a->[0] ? $a->[1] <=> $b->[1]
                  : $a->[1] cmp $b->[1] }
map [(/[a-z]/i ? 0 : 1), $_], keys %hash;

package gs;

...

# Export everything!
@EXPORT = grep defined(&{$main::{$pkg.'::'}{$_}}), keys %{$main::{$pkg
+.'::'}};

$f=q(s{}{\$f=q($f);
$f};
...
s{}{\$f=q($f);
$f};
print;