create_user_3 in a perl script

Hey Guys,   I don't do a lot of perl scripting so I am hoping for a little help getting a script to work. Basically I have pieced som code together from the forums but it doesn't quite work.   ...