Select Code to Download

#use strict;
use warnings;
use Term::ReadLine;
...
        print "\%$key\n" if defined *{$glob}{HASH};
    }
}

sub commands {
    my @keys = sort keys %Sandbox::;
    for my $key (@keys) {
...
        print "\&$key\n" if defined *{$glob}{CODE};
    }
}