ࡱ> Root Entry F k WordDocument CompObj-n  !"#$%&'()*+,.ܥe# (! , l, l  ~(   T ~Times New Roman Symbol Arial MS Sans Serif SymbolTimes New RomanTimes New Roman#!/usr/local/bin/perlread(STDIN,$temp,$ENV{'CONTENT_LENGTH'}); @pairs=split(/&/,$temp);foreach $item(@pairs) { ($key,$content)=split(/=/,$item,2); $content=~tr/+/ /; $content=~s/%(..)/pack("c",hex($1))/ge; $fields{$key}=$content; } print "Content-type: text/html\n\n"; print "\n";print "\n";print "
\n";print "THANK YOU
\n";print "$fields{fname} $fields{lname}
";print "I will write
\n";print "you at
\n";print "$fields{email}
\n"; print "
\n"; ( !]]c]c( !(!(!K@Normala "A@"Default Paragraph Font@ FMicrosoft Word 6.0 Document MSWordDocWord.Document.69q