package demo1;

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

sub test {
    print "demo1\n";
}
1;