Select Code to Download

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}";
}