my $package = $pathname;
    $package =~ s/\//::/g;
    $package =~ s/\.\w+$//;