Select Code to Download

unless ( GetOptions (
...

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

unless ( GetOptions (
                        "example=s" => \$par_example, # string needed
...
    print "\n\nPress return when ready...\n";
    while (<STDIN>){last if $_ }
}