Select Code to Download

unless ( GetOptions (
                        "example=s" => \$par_example, # string needed
...
                        )) { my_show_help(); die "Error in command lin
+e arguments: $!"}

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

my ($stdout, $stderr, $exit) = capture {
                system( $cmd, @cmdargs );
        };