Select Code to Download

#! /usr/bin/perl -w -T

...
chomp( my $line = <$socket> );
print qq{Client Sez "$line"\n};
print $socket "Same to ya, fella\n";

#!/usr/bin/perl -w -T

...
print $socket "Wibble\n";
chomp( my $line = <$socket> );
print qq{Server Sez "$line"\n};