Hi,

terce is correct. Also you should close the connection once you are done with it:

$data->Close();

You may also want to do some error checking:

if ($data->Sql($SQL)) {
    print "The SQL failed.\nError:" .Error();
} else {
    print "Sql inserted\n"
}
[download]

The complete code with the fix pointed out by terce and the above error checking is:

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();
[download]

N.B. The above code is untested but I'm pretty sure that it works.
If you are unsure of things always read the documentation.
Hope this helps

Martin