#! /usr/bin/perl
use strict;
use warnings;
use Path::Class; #Path::Class zur lokalisierung und Ordnerinitialisierung
use FindBin qw ($Bin); #Lokalisierung des Originalscripts, zu Testzwecken!
use Spreadsheet::ParseExcel; #Modul zum Einlesen von Excel Tabellen



my $i = 0;									#Zählvariablen
my $tabelle;			#FileHandle Variable

my $parser = Spreadsheet::ParseExcel->new();		#Initialisierung des Excel Tabellenblatt Parseres

my $path_in = dir($Bin, 'input');		#Herausfinden wo das Script, und damit auch der "input" Ordner liegt und in Variable schreiben
my $file_in = $path_in->file('ALL_ATM.xls');		#Die Input Datei

my $path_out = dir($Bin, 'output');	#Herausfinden wo das Script, und damit auch der "output" Ordner liegt und in Variable schreiben
my $file_out = $path_out->file('PSAX_CLOCK_CURRENT.csv');	#Die Output Datei

my $path_out_off = dir($Bin, 'output');	#Herausfinden wo das Script, und damit auch der "output" Ordner liegt und in Variable schreiben
my $file_out_off = $path_out_off->file('PSAX_OFFLINE.csv');	#Die Output Datei für nicht erreichbare PSAX'e

my ($temp,$test);									#temporäre übergabe Variable

#///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

	$tabelle = $parser->parse($file_in);
		if (!defined $tabelle) {
			die $parser->error(),".\n";
			}