LOOP:while (@ARGV) {
   chomp;
   my $user  = pop;
   my $muser = pop;