Select Code to Download

taken from http://www.perlmonks.org/?node_id=546243
Updated after the first 3 replies, using:
...
        $client->close();
    }
}

#!/usr/bin/perl
use IO::Socket;
...
  print $sock "$count\n"; print "$count";
}
close ($sock);