Perl 当前包概念

zjzc01:/root/big2# cat x1.pl
unshift(@INC,"/root/big2");  
require x1;  
use Data::Dumper;
$var=x1->new('zyj-test');
 my $xx= Dumper($var);    
print $xx;    
print "
"; 
print "1111111111111
";
print __PACKAGE__;
print "
";
print "222222222222222
";
package x1;
print __PACKAGE__;
print "
";
zjzc01:/root/big2# perl x1.pl
$class is x1
111111111
$VAR1 = bless( {
                 'zyj-test' => undef
               }, 'x1' );

$VAR1 = bless( {
                 'zyj-test' => undef
               }, 'x1' );

1111111111111
main
222222222222222
x1