my $sock = IO::Socket::INET->new('localhost:6669');

print "pass this_is_the_passwd\n";
print $sock "pass this_is_the_pw\r";

print "nick whateverhack\n";
print $sock "nick whateverhack\r";