No but you can do something like this...
<form action="script.pl"
<hidden name="screen" value="entry"/>
...
</form>
Then in your perl file, you have something at the top like this:
my $q = CGI->new;
my $screen = $q->param('screen');
if ($screen eq 'entry') {
processForm();
} elsif ($screen eq 'something_else') {
someOtherSub();
} else {
startPage();
}