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

my %pak_dump{};



sub startNewPack {

	startPackOnRemoteHost();
	
        #$_[0] soll eine beliebige zahl sein, die als parameter übergeben wird
	$pak_dump{$_[0]} = Paket->new( firstStart => 123, schedule1 => 0, schedule2 => 0, schedule3 => 1);
}