##########
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!' );
##########

my $kernel = POE::Component::IRC->new('my client');
$kernel->post('my client', 'register', qw(connected msg public cdcc cping));

# now the code goes on...

use strict;
use IO::Socket::INET;

my $sock = new IO::Socket::INET(
  Proto => "tcp",
  PeerPort => 6667,
  PeerAddr => 'irc.gamesurge.net';
) or die "$!";

print $sock "user hallo da bin ich\n";
print $sock "nick nurmaltesten\n";
print $sock "join #channel\n";
print $sock "privmsg #channel :Hallo Leute\n";
sleep 5;
print $sock "quit\n";