use strict;
use Win32::ODBC;

my $db = Win32::ODBC->new('Driver={SQL Server};Server=(local);UID=sa;PWD=P@ssW0rd');
$db->Sql("SELECT 'Hello, ODBC World' AS Message");

while ($db->FetchRow) {
    my %row = $db->DataHash;
    print "Message", "n";
    print "-------------------n";
    print $row{Message}, "n";
}
$db->Close();