if (defined &$action) { &$action; } else { die "Unknown action '$action'\n\nUsage here\n"; }