perl 创建包

zjzc01:/root/big2# cat Employee.pm
package Employee;
use Data::Dumper;
##创建正式雇员

sub new_regular {
my ($name,$age,$starting_position,$monthly_salary)=@_;

my $employee = {
"name" =>$name,
"age" =>$age,
"position" =>$starting_position,
"montly_salary" =>$monthly_salary,
};
return $employee;  ## 返回对象引用
};

zjzc01:/root/big2# perl a36.pl
Employee.pm did not return a true value at a36.pl line 3.
zjzc01:/root/big2# cat a36.pl

unshift(@INC,"/root/big2");
require Employee;
zjzc01:/root/big2# perl a36.pl
Employee.pm did not return a true value at a36.pl line 3.

zjzc01:/root/big2# cat a36.pl

unshift(@INC,"/root/big2");
require Employee;
use Data::Dumper;
$var=Employee::new_regular(a,b,c);
my $xx= Dumper($var);
print $xx;
print "\n";
print  $var->{name};
print "\n";

zjzc01:/root/big2# perl a36.pl
$VAR1 = {
'position' => 'c',
'name' => 'a',
'montly_salary' => undef,
'age' => 'b'
};

a