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

my $LOG;

open_log();
bla();
close_log();

sub open_log {
    my $logfile = 'logfile.txt';
    open LOG, '>>', $logfile or die("Can't open logfile: $!\n");
    $LOG = *LOG;
}
sub bla {
    fill_log();
}

sub fill_log {
  print $LOG "$_\n" for (1..100);
}

sub close_log {
    close $LOG or die $!;
}

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

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

#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();
  $LOG = 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';
    open LOG, '>>', $logfile or die("Can't open logfile: $!\n");
    return *LOG;
}

sub close_log {close $LOG or die $!}