Żadny ale ty móc móc jak móc…
Wtedy w twój perl kartoteka, ty mieć mieć przy the wierzchołek jak mieć:
mój $q = CGI->new;
mój $screen = $q->param ("ekran ");
jeżeli ($screen eq "wejście ") {
processForm ();
} elsif ($screen eq "something_else ") {
someOtherSub ();
} inny {
startPage ();
}