use Win32::ODBC;

$login = "DSN=ODBCTest";

$sql_text = "SELECT * from tblServer";

$conn = new Win32::ODBC($login) 
  or die "Error Connecting! " . Win32::ODBC::Error();

if (! $conn->Sql($sql_text)) {
  while ($conn->FetchRow()) {
    my $data = $conn->DataHash();
    print "$data('server_name')\n";
  }
}

$conn->Close();