GetOptions("daily" => \$p{daily}, "weekly" => \$p{weekly}, "monthly" => \$p{monthly}, ...);
if (1 != grep $_, values %p) { usage() }