Try something like this:
open (OUT, ">e:/test.txt") or die("Can't create output!\n");
select OUT; #selects the OUT filehandle for Standard output
for ( $i = 0 ; $i < 10 ; $i++ ){
print ("$i\n");
}
close OUT;
select STDOUT; #Points standard output back to STDOUT
open (IN , "e:/test.txt");
while(<IN>){
print $_;
}
This transmission may contain information that is privileged, confidential and/or
exempt from disclosure under applicable law. If you are not the intended recipient,
you are hereby notified that any disclosure, copying, distribution, or use of the
information contained herein (including any reliance thereon) is STRICTLY PROHIBITED.
If you received this transmission in error, please immediately contact the sender and
destroy the material in its entirety, whether in electronic or hard copy format. Thank
you.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
