for (my $i=; $i < @ARGV; $i++)) {
   if ($ARGV[$i] eq "-l") {
      warn "Logfile $ARGV[$i+1] missing\n" unless -e $ARGV[$i+1];
   }
   elsif ($ARGV[$i] eq "-u") {
      warn "Useraccounts $ARGV[$i+1] missing\n" unless -e $ARGV[$i+1];
   }
   else {
      warn "Invalid switch $ARGV[$i]\n";
   }
   $i++;
}