在Perl中进行面向对象编程需要先定义一个类，然后创建对象并调用类的方法。下面是一个简单的示例：
# 定义一个类
package Person;
sub new {
my $class = shift;
my $self = {
name => shift,
age => shift,
};
bless $self, $class;
return $self;
}
sub get_name {
my $self = shift;
return $self->{name};
}
sub get_age {
my $self = shift;
return $self->{age};
}
1;
# 创建对象并调用方法
my $person = Person->new("Alice", 25);
print "Name: " . $person->get_name() . "\n";
print "Age: " . $person->get_age() . "\n";
在上面的示例中，首先定义了一个名为Person的类，包含了一个构造方法new以及两个实例方法get_name和get_age。然后通过调用Person类的new方法创建了一个Person对象，并调用get_name和get_age方法获取对象的属性值。
需要注意的是，在Perl中使用bless函数将一个哈希引用绑定到一个类名上，以创建一个对象。然后可以通过箭头运算符->来调用对象的方法。
