in reply to GetLocaleInfo equivalent?

Basically add this line at the beginning of your scripts:
use POSIX qw(locale_h);
And get the current locale with
my $locale = setlocale(LC_CTYPE);
Try "perldoc perllocale" in a shell for all the gory details or search for 'locale' on http://perldoc.perl.org.