Help for this page

Select Code to Download

Select or download this
```
# server
use strict;
...
    sleep 1
}
```

Select or download this

# client
use strict;
...
print $sock "$ARGV[ 0 ]\n";
$sock-> close;