You could always try J.A.P.H :)
In reply to Re: Professional Perl Bodies by BrowserUk in thread Professional Perl Bodies by fx