package Test;

use strict;
use warnings;

my $objektspezifisch;

sub new{
   my ($class) = @_;
   my $self = {};
   bless $self,$class;
   print ++$objektspezifisch;
   return $self;
}