#!/usr/bin/perl 

$userfile = "./userfile";
open (NEWUSERS, "$userfile" ) || die "cannot open to read $userfile\n";

# the delimeter is a :
while ( $line = <NEWUSERS> ) {
     $name = 0; $login = 0;
     ($name, $login) = split (/:/, $line);
     print "name: $name, login: $login\n";
     if ($name && $login ) {
	  print "inside if: name: $name, login: $login\n";
	  open (OUT,"/usr/sbin/useradd -c \"$name\" -d /home/$login -m -k /etc/skel -g 555 -s /bin/tcsh -o $login|");
	  while (<OUT>) {
	      print "$_\n";
	      }
	  }
     }
print "all done folks... \n";