#!/usr/local/bin/perl

$file = $ARGV[0];

open(PASSWD, "$file");

while (<PASSWD>) {

   ($login, $passwd, $UID, $GID, $name, $dir, $sh) = split(/:/,$_);

   if ( !($dir =~ /mckinley\/home/) && !($passwd =~ /\*{1,1}/) ) {
	print;
   }
}

close(PASSWD);

exit;

format STDOUT = 
@<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$login, $name, $dir
.