GetOptions( \%options, 'server=s', 'date=s', 
           'man', 'help', 'alert!', 'debug+'
          ) || pod2usage(2);