Select Code to Download

use strict;
use IO::Socket;
...
   }
}
close ($sock);

use strict;
use IO::Socket;
...
print "$line";
print $socket "Hello from the Client!\n";
close($socket);