#!/usr/bin/perl $| = 1; use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n"; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs= split(/&/,$buffer); foreach $pair (@pairs) {($name,$value) = split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $DATA{$name} = $value; } $name = $DATA{'name'}; print qq~ Post Program
Program:

 $name is the name you entered into the form.


~;