perl -e "map{s#/|::|-#\\#g;$_.='.pm'}@ARGV;for$m(@ARGV){for(@INC){die `start $_\\$m`.qq{\n} if -e qq{$_\\$m}}}" $*