my $opt_z;

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 );
$Getopt::Std::STANDARD_HELP_VERSION = 1;
getopts('dhlLio:P:pqrv:c');

if ($ARGV[0]eq "-?") {     
    $opt_z = $ARGV[0];
}