my %actions = (
		option1 => \&process_option1,
		option2=>\&processoption2
	);
my $option = param('option');
$action{$option}->() or default_action();
exit;