Send file to printer

[Brian Volk]

Hi All, 
 
I'm trying to send the output file to a network printer.  The program is
working fine as far as producing the file, but it is not being sent to the
printer.  Can someone pls take a look at my program and see if everything
looks Okay.  It may just be the path to the printer, not sure.   Thanks in
advance!
 
---  begin
 
#!/usr/local/bin/perl 
 
use strict;
use warnings;
use File::Copy;
 
my $source_folder = "C:/brian/text_files";
 
my $dest_file = "C:/brian/test/item_file1.txt";
open ITEMFILE, ">$dest_file";
 
# open dir and read the files
 
opendir(FILES,$source_folder);
my @files_to_process = grep {!(/^\./) && -f "$source_folder/$_"} 
readdir(FILES);
closedir (FILES);
 
foreach my $source_file(@files_to_process) {
 

                 print ITEMFILE "$source_file\n";
                 copy ($source_file, '//HP-EXCH/HP LaserJet 4100(IS)');   
     }
 
close ITEMFILE;
 
---  end
 
Brian Volk
Brian Volk
HP Products
317.298.9950 x1245
 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]