package subsembly;

use warnings;
use strict; 

sub new {
    my $classname = shift;
    my $self = {};
    return bless($self, $classname);
}

sub test {
    print "du mich auch\n";
}

1;