Select Code to Download

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