prima devi modificare cosi createUser

sub createUser {
my $errore = shift #prende il primo parametro passato alla subroutine e lo elimina dalla coda

if ($errore ne '') {
#se la stringa non e vuota
print $errore; #stampa l'errore;
}



if ($query->param('useralias') eq "administrator") &createUser("no admin");
if ($query->param('password') ne $query->param('passwordcopy')) &createUser("err passwd");

basta l'indirizzo ?