Help for this page

Select Code to Download

Select or download this

while (defined($buf = <$sock>){
    print $buf;
}

Select or download this
```
use IO::Socket;

...
    }
    
}
```