模块基础问题

模块基础问题
我在执行的时候会提示这个
[xiaoye@route xiaoye]$ ./7
Cocoa.pm did not return a true value at ./7 line 4.
BEGIN failed--compilation aborted at ./7 line 4.

请问这是什么原因？

Cocoa.pm--#! /usr/bin/.
Cocoa.pm
#! /usr/bin/perl
package Cocoa;
sub new{
my %parm=@_;
my $this=[];
$this->[0]=$parm{'name'};
$this->[1]=$parm{'x'};
$this->[2]=$parm{'y'};
bless $this;
return $this;
}

已经好了。。.

模块文件最后一行应写上：.
模块文件最后一行应写上：

1;

这样use的时候才能返回成功。