Unnamed

package Parent;

our $thing;

sub thing {
        my ($self, $x) = @_;
        if ($x) {
                $thing = $x;
        }
        return $x;
}

---------------------------------------------
package Child;

use base 'Parent';


-----------------------------------------
script

use Child;

my $obj = Child->new();

$obj->thing('bovine juic');
print $obj->thing, "\n";