gistfile1.txt

#!/usr/bin/perl
use warnings;
use strict;
use Class::Load qw( try_load_class );
use Carp qw();
use Package::Stash;
 
for my $module ( @ARGV ) {
    if ( not try_load_class( $module ) ) {
          printf "Can't load %s\n";
          Carp::carp $Class::Load::ERROR;
          next;
    }
    printf "%s ( Version %s ) => %s\n", 
            $module, 
            Package::Stash->new($module)->get_package_symbol('$VERSION'), 
            $INC{ Class::Load::_mod2pm( $module ) };
}