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

unless ( GetOptions (
                        "color=s"=>\$par_color,
                        "help"     => \$par_help,
                     )
        ) {pod2usage(-verbose => 1)}

if (defined $par_help){pod2usage(-verbose => 1)}