open(NEW, ">c:\\temp.pdf"))
            my $buffer;
            binmode NEW; 
            # start reading users HD 1 kb at a time.
            $file="c:\\temp1.pdf" 
            while(read($file, $buffer, 1024))
            {
                print NEW $buffer;
            }
            close NEW;