Help for this page
use vars qw /%option/; getopt('m:f:l:s:q:h', \%option);
if ($option{f}) { ... unless (($option{f}) && ($option{l} || $option{m} || $option{d}) +); $ctlFile = "$option{f}"; }