I can post it, here it is :
tombruker.zip
Im no pro scripter so use at own risk, but at least it worked for me.
Execute script : perl scriptname.pl inputfile
inputfile has following format :
Username1
Username2
Username3
etc
Would advise you to remove any blank lines, from the outputfile ones the script has finished (open with vim, then use ":sort u" command). Also make the output file executable (chmod+x), ones you execute it there is no turning back..