#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket;

my $line;
my $pong = "";
my $sock = IO::Socket::INET->new('localhost:6667');

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

PING: while (<$sock>) {
    print "$_\r";
    if ( $_ =~ /^PING :(.*)\r$/ ) {
        $pong = $1; 
        last PING;
    }
}

print "PONG :$pong\n";
print $sock "pong :$pong\r";

print "user wcn ignored v8 :hack\n";
print $sock "user wcn ignored v8 :hack\r";

MOTD: while (<$sock>) {
    print "$_\r";
    last MOTD if ( $_ =~ / 376 / ) ;
}

print "join #room1\n";
print $sock "join #room1\r";

print "bye\n";
print $sock "bye\n";