use strict;

package Alpha;
    our $language   = "US-English";
    $Alpha::first   = "Alpha";
    sub SayHello    {"hello from package Alpha\n"};
    sub SayBye      {"Goodbye.\n"}
    sub GreetByName {"Well Hello $_[0].\n";}

package Bravo;
    our @ISA        = qw(Alpha);
    $Bravo::first   = "Bravo";
    sub SayHello    {"hello from package Bravo\n"};

package main;
    ### begin_: get stuff from A
    print("$Alpha::first\n");
    print Alpha::SayHello();
    print("$language\n");
    print Alpha::SayBye();
    print Alpha::GreetByName('Dolly');  ### works as expected
    print Alpha->GreetByName('Dolly');  ### D'OH! not what we expected
    print "\n---------------------\n";

    ### begin_: get stuff from Bravo
    print("$Bravo::first\n");
    print Bravo::SayHello();
    print("$language\n");
    print Bravo->SayBye();              ### works as expected
    print Bravo->GreetByName('Billy');  ### D'OH! 'Hello Bravo'
    print "\n---------------------\n";

1;
__END__
[download]