Hello
I am trying to create a perl script to add users to a unix front end.
Please ignore the glaring security problems for now.
Here is what I have:

#!/usr/bin/perl                                                       
+         
use Unix::PasswdFile;                                                 
+         
                                                                      
+         
($sec,$min,$hour,$dy)=localtime(time);                                
+         
$stamp=".".$hour.$min.$sec;                                           
+         
                                                                      
+         
$pw = new Unix::PasswdFile, "/etc/passwd";                       
  $pw->user("joeblow",  $pw->maxuid + 1, 10,"Joe Blow", "/export/home/
+joeblow",
            "/bin/ksh");                                              
+         
                                                                      
+         
  $pw->delete("deadguy");                                             
+         
  $pw->passwd("johndoe", $pw->encpass("newpass"));                    
+         
  foreach $user ($pw->users) {                                        
+         
      print "Username: $user, Full Name: ", $pw->gecos($user), "\n";  
+         
  }                                                                   
+         
  $pw->commit(backup => 'bak');                                       
+         
  $pw->commit(backup=>$stamp);                                        
+       
                                                                      
+         
  undef $pw;
[download]

Looks like a copy of the synopsis huh?
Anyhoo - I installed the library with the make command
But still get this:

Can't call method "maxuid" without a package or object reference at adduser.pl l ine 8.


AND
Any suggestions on how to write a script like this? Validations? Share a script? Thanks


He who laughs last, doesn't get the joke.