use Win32::ODBC; my @rows; my $make1="Acura"; $year=int($year); # $year+=0; $year=1992; my $DSN = "carcov"; if (!($db = new Win32::ODBC($DSN))){ print "error connecting to $DSN\n"; print "error: " . Win32::ODBC::Error() . "\n"; exit; } die qq(SQL failed: ), $db->Error(), qq(\n) if ($db->Sql("SELECT DISTINCT modelname,startyear,endyear FROM model,detail,make WHERE detail.modelid=model.modelid AND detail.makeid=make.makeid AND make.makename='$make1' AND startyear <= '$year' AND endyear >= '$year'"));