Perl script to delete all message queues and shared emmory segments created by a ceratin user.