#!/usr/bin/perl -w
REPEAT:
my $str = qx( netstat -anp |grep 5060 );
my (undef, $send, $recv) = split /\s+/, $str;
if( $send > 1000 or $recv > 1000) {
   print "bang! $send $recv\n";
   print qx( killall -3 asterisk );
   print qx( killall -9 asterisk );
} else {
   print "ok: $send $recv\n";
}
sleep 10;
goto REPEAT;