unless ( GetOptions (
                        "example=s" => \$par_example, # string needed
                                                      # more options and switches..
                        "help"     => \$par_help,     # switch

                        )) { my_show_help(); die "Error in command line arguments: $!"}

if (defined $par_help){my_show_help();exit;}


##</code><code>##

unless ( GetOptions (
                        "example=s" => \$par_example, # string needed
                                                      # more options and switches..
                        "help"     => \$par_help,     # switch
                        )) {pod2usage(-verbose => 1,-exitval => 'NOEXIT'); &wait_for_input; exit 1;}
 
if (defined $par_help){pod2usage(-verbose => 1,-exitval => 'NOEXIT'); &wait_for_input; exit 0;}


sub wait_for_input{
    print "\n\nPress return when ready...\n";
    while (<STDIN>){last if $_ }
}