my $pkg = "0"; 
my $o = bless { }, $pkg; 
print ref $o;