require $pathtool; #### require "File::Path"; #### eval "require $pathtool"; #### require File::Path; #### sub require_package { for (@_) { (my $file = $_) =~ s-::|'-/-g; require "$file.pm"; }; };