Thank you

#!/usr/bin/perl print "Content-type:text/html\n\n"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @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; $value =~ s/\n/ /g; # replace newlines with spaces $value =~ s/\r//g; # remove hard returns $value =~ s/\cM//g; # delete ^M's $FORM{$name} = $value; } print <Thank you

Thank You, $FORM{'fnameRN'} $FORM{'lnameRN'}!

Here is the information you provided:

First Name: $FORM{'fnameRN'}

Last Name: $FORM{'lnameRN'}

Street Address1: $FORM{'addr1RN'}

Street Address2: $FORM{'addr2RN'}

City: $FORM{'cityRN'}

State: $FORM{'stRN'}

Zip: $FORM{'zipRN'}

Email: $FORM{'emailRN'}

UserID: $FORM{'uidRN'}

Password: $FORM{'pwd1RN'}

Thank you for your feedback.

Click here to return to form to make any changes, OR
Click here to return to the home page. EndHTML sub dienice { my($msg) = @_; print "

Error

\n"; print $msg; exit; }

First Name:	$FORM{'fnameRN'}
Last Name:	$FORM{'lnameRN'}
Street Address1:	$FORM{'addr1RN'}
Street Address2:	$FORM{'addr2RN'}
City:	$FORM{'cityRN'}
State:	$FORM{'stRN'}
Zip:	$FORM{'zipRN'}
Email:	$FORM{'emailRN'}
UserID:	$FORM{'uidRN'}
Password:	$FORM{'pwd1RN'}