Help for this page
$dbh->do( "set names utf8" );
#!/usr/bin/perl ... return decode( "utf8", $_[0] ) . "\n"; # return "$_\n"; }