- or download this
Client Server
...
< -- OK/ERROR text
MSG text -- >
< -- MSG nick text/ERROR text
- or download this
#!/usr/bin/perl
use utf8;
...
#print STDOUT "The following data received form Server: (\ ".$_[0]
+." \)\n";
return $_[0];
}
- or download this
#!/usr/bin/perl
use utf8;
...
close($sock);
}
}