Here's a sample of what sompage.pl might be like: 
use strict;

if ($ARGV[0] eq "submit") {
   &submit_data;
}
else { $view_form; }

####################

sub view_form {
    print "<HTML>\n";
    print " <BODY>\n\n";
    
    print "  <FORM METHOD= \"POST\" ACTION= \"somepage.pl?submit\">\n"
+;
    print "   <B>Pass:</B> <INPUT TYPE= \"PASSWORD\" NAME= \"Pass\"><B
+R>\n";
    print "   <BR>\n";
    print "   <B>Name:</B> <INPUT TYPE= \"TEXT\" NAME= \"Name\"><BR>\n
+";
    print "   <B>URL:</B> <INPUT TYPE= \"TEXT\" NAME= \"URL\" SIZE=40>
+<BR>\n";
    
    print "   <INPUT TYPE= \"SUBMIT\" VALUE= \"Submit\">\n";
    print "  </FORM>\n";
    
    print " </BODY>\n";
    print "</HTML>\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/<!--(.|\n)*-->//g;

       $FORM{$name} = $value;
    }

    ## Do something with the data
}

[download]

- Monolith

In reply to Re: Re: Retrieving Form Data by Monolith-0
in thread Retrieving Form Data by Monolith-0

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.