#!c:\perl\bin

my $printCode = "";
my $lotNumber;
my $productName;
my $Info;
open (LABELS, "labellist.txt") or die "I could not get at labellist.txt as input";


while (<LABELS>) {

	chomp;
	if (m%E%)
     {
#     print "$_\n";
#	 print "\n";
	 $Info=$_;
		$lotNumber=substr($Info, 0,8);
		$productName=substr($Info, 9);	
#		print "$lotNumber\n";
#		print "$productName\n";

		$printCode = "$printCode & \"\^XA\^LH30,30\" & _ \"\^FO110,65\^A0,N,100\^FD\" & _ $lotNumber & \"\^FS\" & _ \"\^FO150,160\^BY2,3.0\^B3N,N,125,N,N\^FD\" & _ $lotNumber & \"\^FS\" & _ \"\^FO75,375\^A0,N,50,30\^FD\" & _ $productName & \"\^FS\" & _ \"\^FO30,425\^BY2,2.0\^B3N,N,50,N,N\^FD\" & _ $productName & \"\^FS\" & _ \"\^XZ\" & vbNewLine";

		print $printCode;
     }
}