#!/usr/bin/perl
# Write Script

($a, $b) = split('=', $ENV{'QUERY_STRING'});
$b =~ tr/+/ /;
$b =~ s/%(..)/pack("C", hex($1))/eg;
open(FILE, ">wrfile.txt");
print FILE $b;
close( FILE );
----------------------------------------
#!/usr/bin/perl
# Read Script (Doesn't print updated strings)

open(FILE, "<wrfile.txt");
while(<FILE>){
  print "Content-type: text/html\n\n";
  print $_;
}
close(FILE);