use strict;
use warnings;

sub Eng::speak { print "I speak English\n"; }
sub Fr::speak { print "Je parle francais\n"; }

my $x=bless({},'Eng');
print "<$x>\n";  #prints: <Eng=HASH(0x814ec28)>
$x->speak();     #prints: I speak English


bless($x, 'Fr');
print "<$x>\n";  #prints: <Fr=HASH(0x814ec28)>
$x->speak();     #prints: Je parle francais