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

print "Subroutines in File::Basename";

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