package Paket;
use strict;
use warnings;
 
 #contructor
 sub new {
 	my $class = shift;
 	my $self = {@_}
 	bless ($self, $class);
 	return $self;
 }
 
 
 #beispiel get-method
 sub firststart {
 	my $self = shift;
 	my %hash = %$self;
 	return $hash{firstStart};
 }
 
 1;