use utf8;
use open OUT => ':utf8';
use DBI;
my $dbh = DBI->connect("DBI:mysql:database=mybase;host=localhost;port=3306", "login", "pass");
#$dbh->do('SET CHARACTER SET utf8');

open TST, '>utftest1.txt';
binmode TST;
print TST "русский";

$test = $dbh->selectrow_array("SELECT 'русский'");
open TST, '>utftest2.txt';
binmode TST;
print TST $test;

##</code><code>##

0000000000: C3 91 C2 80 C3 91 C2 83 | C3 91 C2 81 C3 91 C2 81
0000000010: C3 90 C2 BA C3 90 C2 B8 | C3 90 C2 B9