#!usr/bin/perl -w
use strict;
my $cmd=qw(lpr -S SYSTEMX -P QGPL/SPYVIEW -o l C:\\ABCDEFGH.txt);
system($cmd) or die "cannot do this";