#!/usr/local/bin/perl -w
use strict;

my @lines = `grep :5 /etc/passwd`;
my @users = ();
for (@lines) {
    push(@users, $1) if m/^(\w+):\w+:5\d\d/;
}

for (@users) {
    system("./sysadmin.pl -doit=1 user $_ ''");
}
