use strict "vars";
use Win32;
my ($port_name, $port_name_use, $res_file_open, $page_item);
print "\ngive port name for Zebra printer (eg LPT1/USB001) ";
$port_name = <STDIN>;
chomp($port_name);
$port_name_use = '>' . $port_name;
print "port name to be used is $port_name_use\n";
$res_file_open = open(PRN, $port_name_use)  ;
if($res_file_open == 1) {
$page_item = 0;
        while ($page_item < 3) {
                $page_item +=1;
                print PRN "page $page_item\n";
                print PRN "line 2\n";
                print PRN "line 3\f";
        }
        close(PRN);
} else {
        print "could not open zebra printer on port $port_name\n";
}