[PERL] Script Block TTLs g3m t50

#!/usr/bin/perl
##############################################
#Block ddos TTL T50 g3m                      #
#Twitter: @MatheusTDashh                     #
##############################################
print "Bloqueio De Algumas TTLs |g3m|T50 digite perl $0 block" \n";
if ($ARGV[0] =~ "block" )
{
system("iptables -I INPUT -p icmp -i eth0 -m ttl --ttl-gt 160 -j DROP");
system("iptables -I INPUT -p udp -i eth0 -m ttl --ttl-gt 160 -j DROP");
system("iptables -I INPUT -p tcp -i eth0 -m ttl --ttl-gt 160 -j DROP");
print "Terminou O Bloqueio.. [+]\n";
}