gistfile1.pl

#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';
use utf8;
use open qw(:std :utf8);

package Animal;

sub new {
    my ($class) = @_;

    my $self = {};

    bless $self, $class;

    return $self;
}

sub walk {
    my ($self) = @_;

    print "I'm walking\n";

    return;
}

sub set_name {
    my ($self, $name) = @_;

    $self->{_name} = $name;

    return;
}

package Human;

use base 'Animal';

sub say {
    my ($self) = @_;

    print "Hello, world!";

    return;
}

package main;

sub main {

    my $person = Human->new();
    $person->set_name('Борис');

    use DDP;

    p $person;


}
main();

1;