Select Code to Download

elsif ($adduserargs == 0) {
    #use prompt here...
...
            "One or no letters only please"
        );

sub adduser {
   my $username = generate_user_name( @_ );
}

dark314@somebox:~/boxes/scripts/csl-ldap-01$ perl foo.pl -adduser
First Name: Manuel
...
Please enter middle inital (if it exists): F
Use of uninitialized value in concatenation (.) or string at foo.pl li
+ne 98, <STDIN> line 3.
Created username:

dark314@somebox:~/boxes/scripts/csl-ldap-01$ perl foo.pl -adduser Manu
+el,Castillo,F
Created username: mcastillo        
dark314@chavez:~/boxes/scripts/csl-ldap-01$

if (exists $options{adduser} ) {  #if adduser is an argument
    my $adduserargs;
...
}

#!/usr/bin/perl

...
    }
    return undef;
}