#!/usr/bin/perl

use strict;
#use diagnostics; # when uncommented will freeze the app
use Carp;

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