sub initialize {
 my @path = split('/', $0);
 $ME = pop @path;              # the skriptname = $ME
 GetOptions (   "help|?"=> \$help,
                "daily" => \$daily,
                "weekly" => \$weekly,
                "monthly" => \$monthly );

  usage() if $help;
  unless ( $daily || $weekly || $monthly ) { usage (); }
 return 0;
}
##################################################################
sub usage {
 print "Usage: $ME -h (this help) -daily -monthly -weekly (only one option is possible) \n";
 exit;
}
##################################################################