package Test;

use strict;
use warnings;

sub new{
    bless {},shift;
}

sub test{
    print "Hallo\n";
}

1;