如何在Perl类中存储和访问文件句柄？

#! /usr/bin/perl
package foo;

sub new {

    my $pkg = shift;
    my $self = {};
    my $self->{_fD} = undef;
    bless $self,$pkg;

    return $self;
}

sub Setfd {

    my $self = shift;
    my $fd = shift;
    $self_->{_fD} = $fd;
}

sub write {

    my $self = shift;
    print $self->{_fD} "Hello word";
}

my $foo = new foo;

我的目的是使用hash在类中存储文件句柄.文件句柄最初是未定义的,但之后可以通过调用Setfd函数来启动.然后
可以调用write来实际将字符串“Hello word”写入文件句柄指示的文件,假设文件句柄是成功“写入”打开的结果.

但是,perl编译器只是抱怨“print”行中存在语法错误.谁能告诉我这里有什么问题？提前致谢.