my $method = $q->param( 'method' ); # ... or whatever
if( my $m = $obj->can( $method ) ) {
  $obj->$m( @params );
} else {
  die "I can't call $method on a ", ref $obj;
}