package Package::Name; use Some::Module qw(function); sub new { my $class = shift; my $self = { farbe => 'grün', breite => 17, höhe => 13, } return bless $self, $class; } sub my_method { my $self = shift; # ... # ... my $return = function( $self ); # ... }