if (!($db=new Win32::ODBC($DSN))) {
   print "Error connecting to Database\n";
   print "Error: " . Win32::ODBC::Error() . "\n";
  }
  $SqlStatement = "SELECT * FROM BulletinGroups";
  if ($db->Sql($SqlStatement)) {
    print "SQL failed.\n";
    print "Error: " . $db->Error() . "\n";
  } else {
    while($db->FetchRow()) {
    Do something here
}