use Getopt::Long; use Pod::Usage; unless ( GetOptions ( "color=s"=>\$par_color, "help" => \$par_help, ) ) {pod2usage(-verbose => 1,-exitval => 'NOEXIT'); &wait_for_input; exit;} if (defined $par_help){pod2usage(-verbose => 1,-exitval => 'NOEXIT'); &wait_for_input; exit;}