#! C:\perl\bin\perl.exe

use strict;
use CGI qw(fatalsToBrowser);

my $file = "C:\\web\\policies\\folder\\file.doc";
my ($bytesread, $buffer);

print "Content-type: text/html\n\n";

open (DOC, $file) or die "cannot open: $!";
my @doc = <DOC>;
close DOC;

open (NEWDOC, ">C:\\web\\policies\\folder\\deleted\\file.doc") or die "Cannot open new: $!";
binmode (NEWDOC);
while ($bytesread=read(@doc,$buffer,1024))  {
 	print OUTFILE $buffer;
}
close NEWDOC;

print "completed!";

foreach (@doc) {print}