Perl script to delete all message queues created by a ceratin user.