#!/usr/local/bin/perl

$file = $ARGV[0];

open(PASSWD, "$file");

while (<PASSWD>) 
{
   ($login, $passwd, $UID, $GID, $name, $dir, $sh) = split(/:/,$_);

   print $login,":*",$passwd,":",$UID,":",$GID,":",$name,":",$dir,":",$sh;
}

close(PASSWD);

exit;