use warnings;
use strict;

#use Win32::OLE;
#use Win32::OLE qw(in with);
#use Win32::OLE::Variant;
#use Win32::OLE::Const 'Microsoft Excel';

use POSIX;
use Time::Local;
use IPC::Open3;
use File::Copy;
use File::stat;
use Getopt::Std;
use Time::Local;
use Data::Dumper;

my $EXCEL;

$SIG{__DIE__} = sub { $EXCEL->Quit() if (defined($EXCEL)); print "Died: "; CORE::die @_ }; 
$SIG{__WARN__} = sub { die "Warning-SIG caught: ".$_[0] };


select STDERR; $|=1;
select STDOUT; $|=1;

my $starttime=localtime();

print "------ $starttime ---------------";

my @BLIST=("floep","flap");
my %proclist;


foreach my $boxnr (@BLIST) {
	$proclist{$boxnr}=fork();

	if ($proclist{$boxnr}== 0) {	
		my $rc=0;

		print "Starting child ($$) for box $boxnr.";	$rc=system("query.pl $boxnr");
		print "Succesfull Query (fork: $rc=>$?) for box $boxnr...\n";
		
		exit 0;
	}
	else	{
		print "Child generated: PPID: $$  -  Fork: $proclist{$boxnr}\n";
	}	
}

foreach my $proc (keys(%proclist)) { 
		print "Waiting to end... ";
		my $porki=waitpid($proclist{$proc},0);
		print "Porki: $porki - $proc\n";
}

foreach my $file (@files) {
	local $/="";
	my $boxnr=substr($file,0,index($file,"_"));	

	print "($boxnr) File: ".$file."\n";

	open FH,"<$file" or die "File-issue: $file\n";
	my $tempstring=<FH>;
	close FH;

	my %hash=%{eval "$tempstring"};
	$BOX{$boxnr}=$hash{$boxnr};
}