Select Code to Download

sub login {
    my $username    = $q->param('username');
...
HTML
    
}#end#of#sub#la_menu

sub add_new {
    my $user    = $q->cookie('username');
    my $pass    = $q->cookie('password');
...
        error_page();
    }
}