OT:Perl on Windows

[John Macdonald]

One additional note: if there is any chance that you'd ever
be copying a file that is large, it would be better to avoid
loading the entire file into memory before writing it back out.

Change:

    while (<TXT>) {
            $data .= $_;
    }
    
    print $data;
    
    print OUT $data;

To:

    while (<TXT>) {
        print $_;
        print OUT $_;
    }

-- 
--
The Toronto Linux Users Group.      Meetings: http://tlug.ss.org
TLUG requests: Linux topics, No HTML, wrap text below 80 columns
How to UNSUBSCRIBE: http://tlug.ss.org/subscribe.shtml