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;

#!/usr/bin/perl -w
use strict; 
use warnings;
use subsembly;

if (my $test = subsembly->new()) {
}
else { print "Fehler $!\n"; }

if (my $test = subsembly->test()) {
}
else { print "Fehler $!\n"; }

#!/usr/bin/perl

use warnings;
use strict;

package Lamp;

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

    sub switchOn {
        my $self = shift;
        print "Click. Light.\n";
        $self->{status} = "on"; 
    }

    sub switchOff {
        my $self = shift;
        print "Click. Darkness.\n";
        $self->{status} = "off";
    }

    sub printStatus {
        my $self = shift;
        print "The lamp is " . $self->{status} . " now.\n";
    }

package main;

my $lamp = Lamp -> new();
$lamp -> printStatus();
$lamp -> switchOn();
$lamp -> printStatus();
$lamp -> switchOff();
$lamp -> printStatus();
print $lamp->{status}."\n";