A pentest study case developed in Perl.