Help for this page
#!/usr/bin/perl ... #print while (<$socket>); $socket->close;
use strict; use Data::Dumper; ... } $socket->close;