http://qs321.pair.com?node_id=251671


in reply to Problems with using strict

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