##########
my $nick = 'DerTester';
my $server = 'irc.gamesurge.net';
my $port = '6667';
my $channel = '#channel';
my $ircname = 'Bla bla bla';
my $username = 'Username';
##########

##########
POE::Component::IRC->new('my client') or die "Oh noooo! $!";

my $kernel->post('my client', 'register', qw(connected msg public cdcc cping));

$kernel->post('my client', 'connect',
                { Nick     => "$nick",
                  Server   => "$server",
                  Port     => "$port",
                  Username => "$username",
                  Ircname  => "$ircname" } );

$kernel->post( 'my client', 'join', "$channel" );
$kernel->post( 'my client', 'privmsg', "$channel", 'Pull my finger!' );
##########