new line "\n" for print file

Hello,

Can someone explain how I can add "\n" to this line of code....  If that is
really my problem.. :~)

copy ($print_file, '//hp-exch/HP4100-IS');

The reason I ask is here's what I'm printing;  (teminal veiw)

--begin

<left>
<p>Green Solutions Industrial Cleaner is a non-toxic, heavy-duty product,
formul
ated to tackle difficult cleaning tasks. Formulated with a super surfactant
clea
ning system, the concentrate is engineered to quickly remove petroleum-based
soi
ls with efficiency. Surfactants with superior wetting action perform the
cleanin
g and degreasing for Green Solutions Industrial Cleaner. The super
surfactant bl
end provides quick penetration and initial removal of everyday petroleum
based s
oils such as motor oil, hydraulic fluid, lithium grease, lubricant oils and
stam
ping oils, etc. pH 9.0 - 10.0.</p>
</left>

--end

and this is what is the printer shows

--begin

<left>
<p>Green Solutions Industrial Cleaner is a non-toxic, heavy-duty product,
formul
</left>

Here is the whole program...

--begin

#!/usr/local/bin/perl

use strict;
use warnings;
use File::Copy;

my $print_file = "C:/brian/test/12345.html";
open (PRINT, "< $print_file") or die "can't open $print_file : $!";

while( <PRINT> ) {
print;
}

copy ($print_file, '//hp-exch/HP4100-IS');

close PRINT;

--end

Thank you!!!

Brian Volk
HP Products
317.298.9950 x1245
<mailto:bvolk@hpproducts.com> bvolk@hpproducts.com