Select Code to Download

carp "value now is ".$value;
# ..this message will not be printed if $value is utf8 string

#!/usr/bin/perl

...
print "before carp\n";
carp "\x{41f}\x{440}\x{438}\x{432}\x{435}\x{442}"; #'Hello' in Russian
print "after carp\n";