use Win32::ODBC;

 $connection = new Win32::ODBC("SQL SERVER") or die "Could not open connection to DSN because of [$!]";

$SQL = "select * from pubs.dbo.authors where au_lname = 'green'";

$connection->Sql($SQL);

while($connection->fetchrow())
{
 @datarow = $connection->Data();
print "@datarow\n";

}
$connection->Close();