my $dsn = "Datenbank"; 
my $dbh = Win32::ODBC->new("DSN=$DSN"); # zu Datenbank verbinden
my $sql = "SELECT * FROM Tabellenname"; # deine SQL-Abfrage
if($db->Sql($sql_string)) { # Abfrage war erfolgreich
  # dein weiterer Programmcode
} 
$db->Close(); # Verbindung zu Datenbank schließen