#!/usr/bin/perl -w

$| = 1;

$MYFILE = "apr_products_tab.csv";
$outfile = "./sku.txt";

OPEN (MYFILE, $MYFILE) || die "Cannot open $MYFILE, aborting program.";
OPEN (PRINTER, "> $outfile") || die "Cannot open sku.txt, aborting program. $!\n";

while (<MYFILE>)
{
    chomp; 
    my ($_ID,$CAT_ID,$TITLE,$SHORT_DESC,$FULL_DESC,$META_TITLE,$META_KEYWORDS,$META_DESCRIPTION,$THUMB_IMAGE,$DETAIL_IMAGE,$LARGE_IMAGE,$LIST_PRICE,$PRICE,$SALE_PRICE,$FLAT_RATE_SHIPPING,$IN_STOCK,$NUM_SOLD,$WEIGHT,$BOX_LENGTH,$BOX_WIDTH,$BOX_HEIGHT,$MAX_PER_BOX,$CHARGE_SHIPPING,$REALTIME_OVERRIDE,$CHARGE_TAX,$IS_NEW,$IS_FEATURED,$SHIP_SEPERATLY,$VIEWABLE,$ORDERABLE,$REWARDS_EARNABLE,$REWARDS_REDEEMABLE,$REQUIRE_ADDTOCART,$AVAIL_TO,$MANUFACTURER,$VENDOR,$SKU) 
	= SPLIT (/\t/, $_, 37);

    PRINT PRINTER $SKU . "\n";

}

CLOSE MYFILE;
CLOSE PRINTER;