#!/app/perl5.005/bin/perl

package First;
sub new { bless {}, 'First' };
sub test {
  my $self=shift;
  bless $self, 'Second';
}
1;

package Second;
sub test {
  my $self=shift;
  print "Hello World!\n";
}
1;

package main;

my $t=new First();

print $t,"\n";  # Output: First=HASH(0x2864)
$t->test;       # no output;
print $t,"\n";  # Output: Second=HASH(0xc2864)
$t->test;       # Output: Hello World!