#!/usr/bin/env perl -W 
use strict; 
use warnings; 
use Fcntl; 
if (sysopen(my $fh,'myfile.txt',O_WRONLY|O_TRUNC|O_CREAT)) { 
	for (my $z = 1; $z <= 10000; $z ++) { 
		my $val = sprintf ("%05u",$z); 
		print $fh ($z > 1 ? "\n" : '') . <<CONTENT; 
^XA  
^PMN  
^MNY  
^MMR  
^MTT  
^MD20  
^LH0,0  
^LL150  
^PR2  
^JMA  
^FO20,4^CI0^A0N,50,25^FR^FDID^FS$val^FS  
^FO20,50^BY1.6,3.0,45^BCN,75,N,N,N^FR^FD^FS  
^FO95,132^CI0^A0N,47,35^FR^FD$val^FS  
^PQ1  
^XZ  
CONTENT 
	} 
}