Select Code to Download

#!/usr/bin/perl

...
die "Could't set locale" if ($new_locale ne $locale);

print uc("some_string_in_russian"), "\n";