Deleting Unused Accounts

I would like to purge all un-used accounts from my database. I found this script /bin/deleteusers.pl and I don't know much Perl but it seems to be look at the database, finding the non-activated users and then let's you delete them. Before I run it, can anyone confirm this is the right tool for the job?

Thank you!