GetOptions(
	'h|help'  => sub { pod2usage( -verbose => 1 ) },
	'man'     => sub { pod2usage( -verbose => 2 ) },
	# ...
) or pod2usage();