Вывод utf8-строк с помощью Data::Dumper

$Data::Dumper::Useqq = 1;

{

  no warnings 'redefine';

  sub Data::Dumper::qquote {

    my $s = shift;

    return "'$s'";

  }

}