Send file to printer

[Brian Volk]

Hi All,
 
I have been searching Google for a while now and I can not find how to send
a file to the printer.  For example I use the script below to get Material
Safety Data Sheets and store them in a directory ..where I can easily print
them out manually but what I would really like to do is send them to a
printer using a perl script.  Can someone pls point me in the direction of
some documentations on this subject...
 
FYI, I'm using windows  ... only at work though!  :~)
 
Thanks! 
 
use strict;
use warnings;
use LWP::Simple;
 
my $urlfile = 'C:/brian/MSDS/url_20.txt';
my $itemfile = 'C:/brian/MSDS/file_20.txt' ;
 
open(URL, "<", $urlfile) or die "couldn't read urls: $!";
open(ITEM, "<", $itemfile) or die "couldn't read items: $!";
 
my @urls = <URL> ;
my @items= <ITEM>;
 
close(URL);
close(ITEM);
 
while (@urls) {
               my $url = shift(@urls);
               chomp $url;
               my $file = shift(@items);
               chomp $file;
  
        # this line will get and store the msds  
               my $msds = getstore($url,$file);
              }

 
Brian Volk
HP Products
317.298.9950 x1245
 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]