perl 导出函数到当前名字空间

Vsftp:/root/perl/7# cat scan1.pm   package scan1;    require Exporter;    @ISA = qw(Exporter);    @EXPORT_OK = qw(fun1 frobnicate);   ###导出fun1函数  sub fun1() {        my $a=shift;        my $b=shift;        return 67 + $a + $b;      };  Vsftp:/root/perl/7# cat a7.pl   unshift(@INC,"/root/perl/7");  use scan1 qw(fun1);  my $var=&fun1(3,4);  print $var;  print "\n";  Vsftp:/root/perl/7# perl a7.pl   74