Select Code to Download

my %functions = ( default => \&write_default,
                  warning => \&write_warning,
                  confirm => \&write_confirm,
                  commit  => \&write_commit  );

# This is outside of main, in the 'global' block
my %function = ( # see above );
...
# parameter
&$function{ $action } 
    ( $script_loc, $email, $name, $warning_msg );