Perl IPBoard Bruteforce