my $subref = \&{$action};
die "Usage" unless defined &$subref();