<![CDATA[
#!perl
# in a file: showbaseobj.pl
use strict;
use warnings;
package main;
use BaseObj;
use Inherit;
my $base = BaseObj->new;
print $base->go;
my $more = Inherit->new;
print $more->go;
print $more->where;
$base->home("New Jersey");
$base->region("West Coast");
print $base->go;
$more->home("New York");
$more->town("New York");
$more->team("Mets");
print $more->go;
exit(0);
]]>