use Win32::ODBC;

my @rows;

my $DSN = "Name";

if (!($db = new Win32::ODBC($DSN))){
	print "error connecting to $DSN\n";
	print "error: " . Win32::ODBC::Error() . "\n";
	exit;
}

die qq(SQL failed: ), $db->Error(), qq(\n) if ($db->Sql("SELECT * FROM tbldata"));

while ($db->FetchRow()) {
	my %data = $db->DataHash();
	push @rows, {%data};
}