or download this
my %functions = (
default => sub { write_default($script_loc) },
warning => sub { write_warning($script_loc, $email, $name, $warnin
+g_msg) },
confirm => sub { write_confirm($script_loc, $email, $name) },
commit => sub { write_commit($email, $name) },
);