Penetration Testing with Perl