use InternaTest;
my $obj = InternaTest->new;

if ( $self->{flasch} ) {
    print "test\n";
}