Select Code to Download

if (( defined $buf ) || ($buf =~ /\w/))

if (( defined $buf ) && ($buf =~ /\w/))

your server with my modification:
use IO::Socket;
...
    close($socket);
}