Select Code to Download

use Data::Dumper;
print Dumper(\%INC);

$VAR1 = {
          [...]
...
          'Subclass1.pm' => 'Subclass1.pm',
          [...]
        };

use fIlE::SpEc qw(catfile); # note the wrong case

$x = File::Spec->catfile('a', 'b', 'c'); # this works
$x = catfile('a', 'b', 'c'); # this croaks