#!/usr/bin/perl

use DBI;

$dbh=DBI->connect("dbi:mysql:test","root","") or die "$n connection ".DBI->errstr();
$dbh->do("drop table if exists bug8240");
$dbh->do("create table bug8240 ( quantity int)");
for $i (2,0,6) {
 $dbh->do("insert into bug8240 values($i)");
}
$sth = $dbh->prepare("select quantity from bug8240");
$sth->execute;
$sth->dump_results();
  
$dbh->disconnect;