Get rid of the eval block and replace it with use Country. Other posts in this thread will show you how to get the location of your module into @INC so it can be loaded with a simple 'use'. Then put the following into Country.pm.
package Country;
use strict;
use base 'Exporter';
our @EXPORT = qw(%country);
our %country = (
af => 'afghanistan',
ao => 'angola',
ar => 'argentina',
at => 'austria',
au => 'australia',
bd => 'bangladesh',
be => 'belgium',
bg => 'bulgaria',
);
1;
This should get rid of your errors when using strict.
See perldoc Exporter for help on using EXPORT.
90% of every Perl application is already written. ⇒ |
dragonchild |