use vars qw ($country); or our $country; [download]
In reply to Re: Exporting Issue by perlCrazy in thread Exporting Issue by BarMeister