#!/usr/bin/perl -w
use strict;
my $perl_module;
BEGIN {
   my $ct_args = @ARGV;
   if ($ct_args != 1) {
      print "\nUsage: pwhich_short <perl module name>\n\n";
      print "Example: pwhich_short DBI\n\n";
      exit;
   }
   $perl_module = shift;
};
eval "use $perl_module" or die "Can't find $perl_module: $!\n";

##</code><code>##

   Can't find DBI: