Select Code to Download

use warnings;
use strict;
...
while (<$connection>) {
        print $_;
}

use warnings;
use strict;
...
my $server = new IO::Socket::INET(Proto => "tcp",
                                  PeerAddr => "localhost",
                                  PeerPort =>25);