#!/usr/bin/perl -w
#Simple Script to monitor syn attacks.
$syn_alert=15;
$hostname=`hostname`;
chomp($hostname);
$num_of_syn=`netstat -an | grep -c SYN`;
if($num_of_syn > $syn_alert){`netstat -an | grep SYN | mail -s “SYN ATTACK DETECTED ON $hostname” admin@yourcompany.com`;
}else
{}exit;