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 );
    # ...
}