Select Code to Download

system("notepad.exe /p \"filename.txt\"");

system("print [/D:device] [[drive:][path]filename[...]]");

$|=1;
my $i=0;
...
close SPOOL;
system("copy /B $spoolfile LPT1:");
unlink $spoolfile;

open( LPT, "+>LPT1" ) or die "Can't access printer: $!";
print LPT "Text to print\n\f";
close (LPT);

#! perl -w
use strict;
...
    $EndDocPrinter->Call($hprinter) or ShowError('EndDocPrinter');
    $ClosePrinter->Call($hprinter);
}

$file="foo.txt";
print `type $file > lpt1:`;
print `echo "\f" > lpt1:`;

if (-e "$ENV{'WINDIR'}/System32/mshtml.dll") {
   $dll = "$ENV{'WINDIR'}/System32/mshtml.dll";
...

#note: can't use this to print multiple files
system("rundll32.exe $dll,PrintHTML $outfile");