Try portable 5.24.0.1, download, unzip and run this script using portableshell.bat. Don't change the bat file.
!/usr/bin/perl
use strict;
use DBI;
use DBD::mysql;
printf "OS : %s\n",$^O;
printf "Perl : %s\n",$^V;
printf "DBD::mysql : %s\n",$DBD::mysql::VERSION;
print join "\n",@INC,"\n";
my $dbh = get_dbh();
my ($ver) = $dbh->selectrow_array('SELECT VERSION()');
printf "Server : %s\n",$ver;
sub get_dbh {
my $server = 'localhost';
my $database = "pm";
my $user = "user";
my $pw = "*****";
my $dsn = "dbi:mysql:$database:$server:3306";
my $dbh = DBI->connect($dsn, $user, $pw,
{ RaiseError=>1, AutoCommit=>1 } );
return $dbh;
}
I get
----------------------------------------------
Welcome to Strawberry Perl Portable Edition!
* URL - http://www.strawberryperl.com/
* see README.TXT for more info
----------------------------------------------
Perl executable: D:\strawberry-perl-5.24.0.1-64bit-portable\perl\bin\perl.exe
Perl version : 5.24.0 / MSWin32-x64-multi-thread
D:\strawberry-perl-5.24.0.1-64bit-portable>perl c:/temp/mysql.pl
OS : MSWin32
Perl : v5.24.0
DBD::MySQL : 4.033
D:/strawberry-perl-5.24.0.1-64bit-portable/perl/site/lib
D:/strawberry-perl-5.24.0.1-64bit-portable/perl/vendor/lib
D:/strawberry-perl-5.24.0.1-64bit-portable/perl/lib
.
Server : 5.6.41
D:\strawberry-perl-5.24.0.1-64bit-portable>
poj |