#!/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')     . "'";