use DBI;
use DBD::ODBC;

my $conn_string = "driver={SQL Server};Server=SERVER NAME;Database=DB NAME";
my $dbh = DBI->connect( "DBI:ODBC:$conn_string" ) or die $DBI::errstr;
# get each SKU
my ($sth, $stmt );
my $count=0;
$stmt = qq { 	select sku 
			from TABLE NAME
							};      
$sth = $dbh->prepare ($stmt);
$sth->execute ();