子程序中的私有变量

[root@mysql1 perl]# cat 18.pl   
#!/usr/bin/env perl


#use warnings FATAL => 'all';


sub max {
#  my($m,$n);
#  ($m,$n)=@_;
my($m,$n)=@_;
  if ($m > $n) {
    $m
  } else {
    $n
  }
}


print &max(10,15),"\n";
print &max(8,5),"\n";
print &max(1,2,3),"\n";
print &max(4),"\n";


[root@mysql1 perl]# 
[root@mysql1 perl]# 
[root@mysql1 perl]# 
[root@mysql1 perl]# ./18.pl   
15
8
2
4