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'});