if (!($db = new Win32::ODBC("DSN=Book;UID=$user;PWD=$pwd;")))
{ print "error message";
}

else 
{
$statement="query";
$db->Sql($statement);
<continue other stuff>
}