&GetOptions( 'h|help' => \$opt_help,
             'man' => sub{ pod2usage({-verbose=>2,
                                     -exitval=>0}); }, 
             'q|quiet' 		=> \$opt_quiet,
             'c|config=s' => \@opt_config,
             'p|project=s' => \$opt_proj
           ) || pod2usage(1);	
			
if($opt_help){
 print "help---------------\n";
  pod2usage(1);
}