Help for this page

Select Code to Download


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