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