Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
    local ($buffer, @pairs, $pair, $name, $value, %FORM);
    # Read in text
...

print "Content-type:text/html\r\n\r\n";
use CGI;

Select or download this

use CGI qw( param header );
my $old_pass=param('oldpass');
my $new_pass=param('newpass1');
my $new_pass=param('newpass2');
print header({-type=>'text/html'});