my %h = (
	HELP => $_ = sub {print "help\n"},
	"?"  => $_,
	SAVE => sub {print "save\n"},
);