Select Code to Download

my %dispatch = (
# Key = name of proc
...
    $function->bind_param($argc++, $arg, SQL_VARCHAR);
}
$function->execute;

my ($procedure, $function);
DISPATCH: {
...
    # and so on...
} #close block labelled DISPATCH;
$function->execute;