getopts("n:f:hc",\%option);



if (!$option{n} && !$option{f}) {

  help();

  exit;

}



sub help {

print<<EOF



Usage: dnsmod [ -h ] [ -n ] [ -f ]

  -n <domain>

  -f <corp || client >

  -h print this help page



EOF

}