use strict;
use File::Basename;

sub dump_keys {
    my($package)= @_;
    print "Subroutines in $package";

    no strict 'refs';
    print $_
        for keys %{"$package\::"};
}

dump_keys('File::Basename');