Add a New Phone No

Forename: Surname: Department: Phone No: Comments:
#!c:\perl\bin print "Content-type: text/html\n\n"; read(STDIN,$tempbuffer,$ENV{'CONTENT_LENGTH'}); @pairs=split(/&/,$tempbuffer); foreach $item(@pairs){ ($key,$content)=split(/=/,$item,2); $content=~tr/+/ /; $content=~s/%(..)/pack("c",hex($1))/g; $fields{$key}=$content; print "$key"; print " contains $content"; }