if (exists $options{adduser} ) { #if adduser is an argument my $adduserargs; { @adduser = $options{'adduser'}; @adduser = map{split /,/ } @adduser; $adduserargs = scalar(@adduser); } #break apart on comma, and find how many args to this option if ($adduserargs == 2 || $adduserargs == 3){ $givenname = $adduser[0]; $surname = $adduser[1]; $middle_initial = $adduser[2]; #connect_to_ldap(); my $username = adduser($givenname,$surname,$middle_initial); print "Created username: " . $username . "\n"; #addgroup($username, $username); } elsif ($adduserargs == 0) { #use prompt here... my $givenname = Prompt( 'First Name', '[a-zA-Z]', 'Bad name format (letters only)' ); my $surname = Prompt( 'Last Name', '[a-zA-Z]', 'Bad name format (letters only)' ); my $middle_initial = Prompt( 'Please enter middle inital (if it exists)', '^[a-zA-Z]{0,1}$', "One or no letters only please" ); my $username = adduser($givenname,$surname,$middle_initial); print "Created username: " . $username . "\n"; } }