use DBI;
my $dbh = DBI->connect( 'dbi:mysql:', @ARGV )
    or die "Could not connect.\n";
my $sql = "SELECT 1";

print "DBI: $DBI::VERSION\n";
print "DBD::mysql $DBD::mysql::VERSION\n";
print "SQL: $sql\n";

$|=1;

for my $sp ( 0..1 ) {
    $dbh->{'mysql_server_prepare'} = $sp;
    for my $ur ( 0..1 ) {
        print "server_prepare=$sp, use_result=$ur: ";
        $dbh->{'mysql_use_result'} = $ur;
        my $sth = $dbh->prepare( $sql );
        $sth->execute;
        my ($result) = $sth->fetchrow_array;
        $sth->finish;
        print "$result\n";
    }
}