Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
print("Waiting for data to arrive...");
$cv_recv->recv;
print("[OK]\n");

Select or download this

me@server:~/testscripts$ ./monks17.pl localhost
Waiting for data to be sent...[OK]
...

[OK]
me@server:~/testscripts$