# Load the module
use Win32::ODBC;

# Make a new database object, the dsn,
# userid, and password are things you need
# to fill in
my($db) = new Win32::ODBC("dsn=yourdsn; uid=foo; pwd=bar");

# Send the database some SQL
$db->Sql("SELECT * FROM your_table");

#print out some stuff
while ($db->FetchRow()) {
    my(%data) = $db->DataHash();
    print "Your data is: $data{'some_value'}";
}

# Close the database
$db->Close();