gistfile1.txt

#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';

my $module = 'IO::File';

my @modules = @ARGV;

if(!@modules) {
  @modules = qw(
    IO::File
    Term::ANSIColor
    Test::More
    Tie::File
    Term::ReadLine
  )
}

for my $module(@modules) {
  eval "require $module";
  printf("%20.20s found in %s\n", $module, $INC{ module_to_path($module) } );
}

# Translate IO::File to IO/File.pm so we can look it up in the %INC hash.
sub module_to_path {
  my $m = shift;
  my $f = $m;
  $f =~ s{::}{/}g;
  return "$f.pm";
}