package test;
my $counter_incr;
my $counter_decr;
{
    my $counter = 0;
    $counter_incr = sub { $counter++ };
    sub get_counter {
        return $counter;
    }
    $counter_decr = sub { $counter-- };
}

sub new {
    # Objekt erzeugen
    $counter_incr->();
}

sub DESTROY {
    $counter_decr->();
}