package InternaTest;

# boilerplate

sub new {
    my $self = bless {}, shift;
    $self->{flasch} = 0;
    return $self;
}

1;