Or, to expand further, and depending on the actual number of subroutines, use a dispatch table:

($dispatch{ $cgi_query->param('action') } || \&default_sub)->();
[download]