Select Code to Download

use Getopt::Long;
use Pod::Usage;
...

if (defined $par_help){pod2usage(-verbose => 1,-exitval => 'NOEXIT'); 
+&wait_for_input; exit;}