Originariamente inviato da shishii
non capisco la domanda.
Non sai come si passano dei valori tramite dei form?
no, non mi funziona lo script e non capisco il motivo eppure e' abbastanza semplice:

my $query = new CGI;
if($query->param('change_pass')) {
&change_pass($query);
}
else{
&print_page;
}

sub print_page {
print $query->header,
$query->start_html("Cambio password");
&print_form;
print $query->end_html;
}

sub print_form {
print $query->start_form();
print $query->textfield( -name=>'user',
-size=>30,
-maxlength=>30);
print $query->hidden(-name=>'change_pass',
-value=>'1');
ecc.

sub change_pass {
my ($query) = @_ ;
my($user, $cur, $new1, $new2) = (
$query->param('user'),
$query->param('cur'),
$query->param('new1'),
$query->param('new2')
);
$user =~ s@^\s+|\s+$@@g;

l'errore me lo da sulle variabili $user, $cur, $new1, $new2 dicendo che non sono inizializzate.
Eppure l'oggetto $query lo passo.