#!perl -wl
use strict;
use File::Basename;

print "Subroutines in File::Basename";

print $_
    for keys %File::Basename::;

##</code><code>##

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');