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 "\n"; 
print "1111111111111\n";
print __PACKAGE__;
print "\n";
print "222222222222222\n";
package x1;
print __PACKAGE__;
print "\n";
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