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";