# This functionality not usable prior to Perl 5.004
require 5.004;

use POSIX qw(locale_h);

my $old_locale = setlocale(LC_ALL);
print $old_locale, "\n";