A more portable solution would be $parser = File::Spec->catfile(split /::/, $parser) . ".pm";