Select Code to Download

#server

...
my $serial = $client->serial();
print "Client $serial just disconnected\n";
}

#client

...
$reply = $client->receive() || die "ERROR RECEIVING: $@\n";
print "$reply\n";
}