# 2B.
sub load {
    my $arg = shift; 
    my $module_pm;
    if ($arg =~ /\A\w+(::\w+)*\z/) {
        $module_pm = join("/", split /::/, $arg) . ".pm";
    } else {
        $module_pm = $arg;
    }
    ...
}