#! /usr/bin/perl
print "Content-type: text/html\n\n" ;

$_ = <> ;

for (split /&/) {
  ($name,$value) = split /=/ ;
  $cgidat{$name} = $value ;
}


print "adding '$cgidat{'bar'}' of length ".length($cgidat{'bar'}) ;

#die ;

open OUTFILE,'>>','addtome.txt' ;
print OUTFILE "$cgidat{'bar'}\n" ;

#die ;

print "<pre>" ;
system("cat addtome.txt")