use Module::Locate 'locate';

my $path = locate $ARGV[0];