#script.pl
#!/usr/local/bin/perl
#use strict;
use CGI qw(:standard);
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1");
require 5.001;
require "module.pm";
};
if ($@) {
die("Error including libraries: $@\n");
}
msg();
sub msg {
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "Country\n";
print "\n";
print "";
print "$country{'af'}
\n";
print "\n\n";
}
# module.pm
# module.pm
%country = (
af => 'afghanistan',
ao => 'angola',
ar => 'argentina',
at => 'austria',
au => 'australia',
bd => 'bangladesh',
be => 'belgium',
bg => 'bulgaria',
);