[MacPerl] Elementary Question

["Noe Dinnerstein: President, BodhiSoftWare" <norbu108@tuna.net>]

I'm a rank beginner at MacPerl.  I'm going through the MacPerl book and
have a problem.
given the following script:


!#perl

open ( IN,   'README') or die ("Input File open failed\n");
open ( OUT,   '>>Report') or die ("Output File open failed\n");

print ("starting loop\n");

 while ($line = <IN>) {
	print OUT ($line);
 }

print  ("end of loop\n");

close (IN);
close (OUT);

*************************

I get the following output:

starting loop
end of loop

But the output file is empty.   The input file exists, yet this behaviour
looks like the input file is empty (not the case).   What is the obvious
thing I'm missing?


	Noe

	          \\\
	         (@v@)  W
	          (  O )  //
	            |  | //
	          /  ? |/
	         //     |
	         |||     \
	         M| /\ |
	            ||   ||
	            ||   ||
	            LL  LL
		



===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org