#!/usr/bin/perl $LABEL_PRINTER='INV_1x4_IT_1'; $PREFIX='DAILY'; $FIRST_NUMBER = 1; $LAST_NUMBER = 5; $SUFFIX = 'L5'; $single_print_job = ''; $label_template = join('', ); for ($num = $FIRST_NUMBER; $num <= $LAST_NUMBER; $num++) { $formatted_label = sprintf($label_template, $PREFIX, $num, $SUFFIX, $PREFIX, $num, $SUFFIX); $single_print_job .= $formatted_label; } open(PRINTER, "| lp -d $LABEL_PRINTER") or die "Cannot open printer. $!"; print PRINTER $single_print_job; close(PRINTER); __DATA__ ^XA ^SZ2^JMA ^MCY^PMN ^PW812~JSN ^JZY ^LH0,0^LRN ^XZ ^XA ^FO70,41 ^BY3,2.7^B3N,N,80,N,Y^FD%s%03d%s^FS ^FT213,37 ^CI0 ^A0N,28,39^FD%s%03d%s^FS ^PQ1,0,1,Y ^XZ