use strict;
use warnings;

#...

my $cgi = new CGI;

if ( $cgi->param('runsub') ) {
    run_subroutine( $cgi );
}