GetOptions( "help|?" => sub { pod2usage( -verbose => 1, -exitval => 0 ); }, "man" => sub { pod2usage( -verbose => 2, -exitval => 0 ); }, # ... ) or pod2usage( -verbose => 1, -exitval => 1);