#!/usr/bin/perl -w

use DBD::mysql;
use DBI;
use English;

%opt = (
    dbname => 'utf8_test',
    dbuser => 'root',
    dbpass => 'xxx',
);

my %version_of = (
    Perl => sprintf("%vd", $PERL_VERSION),
    DBI => DBI->VERSION,
    'DBD::mysql' => DBD::mysql->VERSION,
);

my $dbh = DBI->connect(
    'DBI:mysql:'.$opt{dbname},
    $opt{dbuser},
    $opt{dbpass}
);

my $query = 'SELECT VERSION() AS mysql_version';
my $sth = $dbh->prepare($query);
$sth->execute();
my $row = $sth->fetchrow_hashref();

$version_of{MySQL} = $row->{mysql_version};

foreach my $component (keys %version_of) {
    printf("%10s : %s\n", $component, $version_of{$component});
}