use CGI qw(-no_debug :standard);
use Win32::ODBC;

$db = new Win32::ODBC("LIB");

$stmt = "SELECT * FROM Library WHERE Number > 1800";
$rc = $db->Sql($stmt);
die qq(SQL failed "$stmt": ), $db->Error(), qq(\n) if $rc;

print header(), start_html("Test Library");

while($db->FetchRow())
   {
	@Data = $db->Data("Number","Title");
	print "$Data[0] $Data[1]<br>\n";
   }

print end_html();
$db->Close();