#!/usr/local/bin/perl use strict; use warnings; use CGI; $CGI::DISABLE_UPLOADS = 1; # Disable uploads $CGI::POST_MAX = 0; # Maximum number of bytes per post my $cgi = CGI->new(); print $cgi->header(); print "
"; ####
#!/usr/local/bin/perl
use strict;
use warnings;
use CGI;
$CGI::DISABLE_UPLOADS = 1; # Disable uploads
$CGI::POST_MAX = 0; # Maximum number of bytes per post
my $cgi = CGI->new();
my $uid = $cgi->param('uid');
my $passwd = $cgi->param('passwd');
my $rm = $cgi->param('rm');
print $cgi->header, $cgi->start_html;
print "uid: '" . $cgi->param('uid') . "
";
print "passwd: '" . $cgi->param('passwd') . "
";
print "rm: '" . $cgi->param('rm') . "'";