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;
}
[download]

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>