你如何在Perl中创建对象？

# 定义一个类
package MyClass;

sub new {
    my $class = shift;
    my $self = {
        name => 'default',
        age => 0,
    };
    bless $self, $class;
    return $self;
}

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

sub set_age {
    my ($self, $age) = @_;
    $self->{age} = $age;
}

sub get_name {
    my ($self) = @_;
    return $self->{name};
}

sub get_age {
    my ($self) = @_;
    return $self->{age};
}

1;

#!/usr/bin/perl

use strict;
use warnings;

use MyClass;

my $object = MyClass->new();
$object->set_name('John Doe');
$object->set_age(30);

print "Name: " . $object->get_name() . "\n";
print "Age: " . $object->get_age() . "\n";