my $node;
if ($node eq "Main") {
    &Main_page;
    } elsif ($node eq "Check") {
    &Check_page;
    } else {
    &Error_page;
    }

##</code><code>##

my $Page = param('Main');
if ($Page eq "Main") {
    &Main_Page;
    } else ...