MySQL. Русские символы отказываются добавляться.

#!/usr/local/bin/perl

use DBI;
use strict;
use constant endl => "\n";

my $base='test';
my $user='max';
my $pass='test';
my $host='localhost';
my $dbh=0;
my $sql=$ARGV[0];
my $charset='cp1251';
my $collation='cp1251_general_ci';

sub set_charset() {
    my @x=('client','connection','database','server','results');
    my $cs;
    foreach $cs (@x) {
        $dbh->do('set character_set_'.$cs.'='.$charset);
    }
}

sub set_collation() {
    my @x=('connection','database','server');
    my $cs;
    foreach $cs (@x) {
        $dbh->do('set collation_'.$cs.'='.$collation);
    }
}

sub puts( $ ) {
    print(shift,endl);
}

$dbh=DBI->connect("DBI:mysql:$base:$host",$user,$pass);
if (!$dbh) {
    die "Cannt connect\n";
}
puts('Connected');
print('Prepare charsets ');
set_charset();set_collation();
puts('done');

if ( -r $sql ) {
    puts('Info: using ['.$sql.'] for restore');
    my $cnt=0;
    open SQL,$sql;
    my $line='';
    while($line=<SQL>) {
        chomp($line);
        if (($line ne '') and (not($line =~/^#/))) {
            if (not $dbh->do($line) ) {
                puts('Error: '.$dbh->errstr);
                last;
            }
            $cnt++;
            if (($cnt % 20)==0) {
                puts($cnt);
            }
        }
    }
    puts('Total: '.$cnt);
    close SQL;
}
else {
    puts('Error: ['.$sql.'] not found or not readable');
}

$dbh->disconnect();

SET NAMES cp1251
SET CHARACTER SET cp1251
SET character_set_connection = cp1251
SET collation_connection = cp1251