hintss

use IO::Socket;

$nick = "hintssomatic";
$password = "<redacted>";
$c = "#channel-goes-here";

$sock = new IO::Socket::INET(PeerAddr=>"irc.network.net",PeerPort=>6667,Proto=>'tcp');
die "phail $!:$@" unless $sock;

print $sock "USER hontss zack zack :Hintss-o-matic: jercogs' creation\n";