sub new { my $package = shift; my $object = { }; # Nieuwe lege hash ref bless $object, $package; # De magie return $object; }