if (!$test) {
         print "<br>$sr exists on the system<br>\n";
         open(PASS, '/tmp/passwd.$$');
         while(<PASS>) {
            chomp;
            my @fields=split(':', $_);
            if (grep {$fields[3] !~ /5612/} @fields) {
               print "You cannot change the passwd on system accounts.<br>\n";
               print "This is being logged and will be reported.<br>\n";
            }
            close(PASS);
         }
      }