$dbh = DBI->connect('dbi:ODBC:StockDB') || die "Error opening DB: $DBI::errstr\n";

$sth = $dbh->prepare("SELECT NOTES FROM QTABLE");

$sth->execute()  or die "Couldn't execute query: $DBI::errstr\n";


while (my @row = $sth ->fetchrow_array){
	print "@row\n";
}



$sth->finish();