#!/usr/bin/perl open(OUT, "> /location/file.txt") or dienice("Can't open file.txt for writing: $!");
print "content-type: text/plain\n\n";
while (<>) {
    print OUT $_;
    print $_;
}
close (OUT); 
exit 0;