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_z );

#    'L'       =>\$opt_L, 
#    'p'       =>\$opt_p,

GetOptions (
    'd'       =>\$opt_d,
    'h'       =>\$opt_h,
    'l'       =>\$opt_l,   
    'i'       =>\$opt_i,
    'o:s'     =>\$opt_o,
    'P:s'     =>\$opt_P,
    'q'       =>\$opt_q,
    'r'       =>\$opt_r,
    'v:s'     =>\$opt_v,
    'c'       =>\$opt_c,
    'help|?!' =>\$opt_z,
);