sub load {
   my ($pkg) = @_;
   my $qfn = $pkg =~ s{::}{/}gr . '.pm';
   ...
}