view release on metacpan or  search on metacpan

examples/login_form.cgi  view on Meta::CPAN

    $cgi->parse;
    
    my $fields = $cgi->Vars;
    
    print "Content-Type: text/html\n\n";
    print "<pre>\n";
    print "Login form.<br />\n";
    print "</pre>\n";
    my $msg = $$fields{msg};
    if (defined($msg)) {
        print qq{<p><font color="#ff0000">$msg</font></p>};
    }

    my $ref_dir = $cgi->getSelfRefUrlDir;
    my $form = qq{<form action="$ref_dir/login.cgi" method="POST">\n};
    $form .= qq{<input type="hidden" name="ref_url" value="$$fields{ref_url}" />\n};
    $form .= qq{<input type="text" name="username" /><br />\n};
    $form .= qq{<input type="password" name="password" /><br />\n};
    $form .= qq{<input type="submit" name="submit" value="Submit" />\n};
    $form .= qq{</form>\n};