while(1){
    $Line = <$Sock>;

##</code><code>##

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