#!/usr/bin/perl -w
use strict;

use IO::Socket::INET;
use Encode;
use FileHandle;

#login data
my $nick = 'stefan@berlin';
my $pw = '12345';
my $channel = '12345';
my $SPIN; #socket
my $LOG; #filehandle

main_connection("Versuche einzuloggen..");

#### SUBS ####
sub main_connection {
 my $text = shift;
 print "$text\n\n";
 $SPIN = shake_hands();
 login();
 $open_log();
 #main
 #while socket, hold it
 my $line;
 while (defined($line = <$SPIN>)) {
   start($line);
 }
 main_connection("Versuche neu einzuloggen..") unless($line);
}

sub shake_hands {
 my $host = 'www.hostname.com';
 my $port = '0000';
 #open the socket to chatserver
 my $SPIN = IO::Socket::INET->new(
 #socketdaten
 return $SPIN;
}

sub login {
   #sending logindata to chatserver
#serverlogin
}

sub start ($) {
   my $line = shift;
   #get first char, cause it means a affair wich happening, like op, deop, join and so on
   my $cmd = substr($line, 0,1);
   print $LOG "test\n";
}

sub open_log {
   my $logfile = 'logfile2.txt';
   $LOG = FileHandle->new(">>$logfile");
}

sub close_log {$LOG->close  or die $!}