I don't have such code and that's not how this website works.

We expect you to do your own (home)work. Maybe you should do some research as to how other programs detect a SYN flood, and then replicate the algorithm in Perl.