Select Code to Download

#!/usr/bin/perl

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

#!/usr/bin/perl
use Net::EasyTCP;
...
$reply = $client->receive() || die "ERROR RECEIVING: $@\n";
print "$reply\n";
}