Help for this page

Select Code to Download

Select or download this
```
while(1){
    $Line = <$Sock>;
```

Select or download this

    print $Sock "PRIVMSG $_[0] :$_[1]\r\n";