use strict;
use warnings;

sub emailagenda {
		# full definition here
		...
}

%ActionSubsM = (
    'emailagenda' => \&emailagenda,
);

my $RtnVal = $ActionSubsM{ 'emailagenda' }->( 'meetingid1' );

print "|$RtnVal|\n";