use strict; if ($ARGV[0] eq "submit") { &submit_data; } else { $view_form; } #################### sub view_form { print "\n"; print " \n\n"; print "
\n"; print " Pass:
\n"; print "
\n"; print " Name:
\n"; print " URL:
\n"; print " \n"; print "
\n"; print " \n"; print "\n"; } #################### sub submit_data { # Get the data submitted from the form read(STDIN, my $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs my @pairs = split(/&/, $buffer); my %FORM; foreach my $pair (@pairs) { my ($name, $value) = split(/=/, $pair); # Remove plus signs and decode %-encoding $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; $FORM{$name} = $value; } ## Do something with the data }