Basically add this line at the beginning of your scripts:

use POSIX qw(locale_h);
[download]

And get the current locale with

my $locale = setlocale(LC_CTYPE);
[download]

Try "perldoc perllocale" in a shell for all the gory details or search for 'locale' on http://perldoc.perl.org.