Select Code to Download

    my %options = ( date    => prev_day( strftime( '%Y%m%d', localtime
+ )),
                    qadir   => $QADIR,
...

    pod2usage(1) if $options{'help'};
    pod2usage( '-verbose' => 2 ) if $options{'man'};

    pod2usage( { -message => q{Mandatory argument '-file' is missing} 
+,
                 -exitval => 1  ,
                 -verbose => 1
               }
             ) unless $options{file};