Select Code to Download

use strict;

...
    $sock->send( 0 ) if !$resp;

}

use strict;
use IO::Socket;
...

print $resp, "\n";
$sock->close();