Select Code to Download

#!/usr/bin/perl
#server
...
    print "Recieved 2 '$buf'\n";
    $new_sock->say("12");
}

#!/usr/bin/perl
#client
...
$buf = $sock->getline();
chomp($buf);
print "Bytes 2 = '$buf'\n";