our ( $opt_d,$opt_h,$opt_l,$opt_L,$opt_i,$opt_o,$opt_P,$opt_p,
  $opt_q,$opt_r,$opt_v,$opt_c,$opt_help );
GetOptions(
    'd'      => \$opt_d,
    'h'      => \$opt_h,
    'l'      => \$opt_l,
    'L'      => \$opt_L,
    'i'      => \$opt_i,
    'o=s'    => \$opt_s,
    'P=s'    => \$opt_P,
    'p'      => \$opt_p,
    'q'      => \$opt_q,
    'r'      => \$opt_r,
    'v=s'    => \$opt_v,
    'c'      => \$opt_c,
    'help|?' => \$opt_help,
);