sub dispatch {
    my $cmd = shift;
    try { eval( '&' . $cmd . '(' . join ',', @_ . ');' ); }
    catch { print STDERR "Unrecognised command $cmd\n"; }
    # the above is a non-GUI example which would need adaptation      
}