Mysql client charset

gistfile1.pl

#!/usr/bin/perl

use DBI;

our $dbh = DBI->connect("dbi:mysql:dbname=mydb;host=localhost",
        'user', 'pass',
        { PrintError => 0, RaiseError => 1, mysql_enable_utf8 => 1 });

for (@{ $dbh->selectall_arrayref(q{
        SHOW VARIABLES LIKE 'character\_set\_%' }) } ) {
        print "$_->[0] = $_->[1]\n"
}