Site hosted by Angelfire.com: Build your free website today!
    First Name  
    Last Name    
    E-Mail Addr          
                
                
#!/usr/local/bin/perl read(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"; print ""; chmod 755 myscript.cgi