Select Code to Download

use strict;
use Socket;
...
   print "Connection recieved from $name\n";
   close NEW_SOCKET;
}

use strict;
use Socket;
...
        print "$line\n";
}
close SOCKET or die "close: $!";