perl 取类里的成员变量

[root@wx03 test]# cat x1.pm
package x1;
use Data::Dumper;
sub new {
my $self ={};
my $invocant = shift;
my $class = ref($invocant) || $invocant;
my ($name,$age,$starting_position,$monthly_salary)=@_;
      my $self = {
         "name" =>$name,
         "age" =>$age
                 }; 

bless($self, $class); # 给予对象性质  

return $self;
};  

my  $a1='31dadada';
    $a2='afdafsf21414dfsf';

sub sum_var {
  my ($self,
      $var1,              # Name or IP number of host to ping
      $var2,           # Seconds after which ping times out
      ) = @_;
my $var3= $var1 + $var2;
return $var3;
 }
1;

[root@wx03 test]# perl a1.pl 

--------------------.
afdafsf21414dfsf[root@wx03 test]#