if ($data->Sql($SQL)) {
	print "The SQL failed.\nError:" .Error();
} else {
	print "Sql inserted\n"
}
##</code><code>##

use strict;
use Win32::ODBC;
my $data = new Win32::ODBC("DSN=SQLServer") or die "Could not open bec+ause of [$!]";
my $SQL = "SELECT itemNbr, Store_Num FROM sales";
if ($data->Sql($SQL)) {
	print "The SQL failed.\nError:" .Error();
} else {
	print "Sql inserted\n"
}
$data->Close();