diff --git a/mysql-client-tests/perl/dbd-mysql-test.pl b/mysql-client-tests/perl/dbd-mysql-test.pl
new file mode 100644
index 0000000000..93ef8fd0a5
--- /dev/null
+++ b/mysql-client-tests/perl/dbd-mysql-test.pl
@@ -0,0 +1,33 @@
+use strict;
+
+use DBI;
+
+my $QUERY_RESPONSE = [
+    { "create table test (pk int, value int, primary key(pk))" => '0E0' },
+    { "describe test" => 2 },
+    { "insert into test (pk, value) values (0,0)" => 1 },
+    { "select * from test" => 1 }
+    ];
+
+my $user = $ARGV[0];
+my $port = $ARGV[1];
+my $db   = $ARGV[2];
+
+my $dsn = "DBI:mysql:database=$db;host=127.0.0.1;port=$port";
+my $dbh = DBI->connect($dsn, $user, "");
+
+foreach my $query_response ( @{$QUERY_RESPONSE} ) {
+    my @query_keys = keys %{$query_response};
+    my $query      = $query_keys[0];
+    my $exp_result = $query_response->{$query};
+
+    my $result = $dbh->do($query);
+    if ( $result != $exp_result ) {
+	print "QUERY: $query\n";
+	print "EXPECTED: $exp_result\n";
+	print "RESULT: $result\n";
+	exit 1
+    }
+}
+
+exit 0;