#!/usr/bin/perl 
use strict;
use warnings;

use IO::Socket::INET;

my $host = 'irc-radio.hopto.org';
my $port = '11122';

my $socket = IO::Socket::INET->new(
PeerAddr => $host,
PeerPort => $port,
proto => 'tcp',
type => 'SOCK_STREAM');


print $socket "moderatorlogin passwort\n\r"; #das muss \r da der server sont janich antwortet

while (defined (my $line = <$socket>)) {
  $socket->autoflush(1);
  print $line;
}

$socket->close or warn $@;

### SUBS ###