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