Select Code to Download

package Base;

...
}

1;

package Inherit;

...
}

1;

#!/usr/bin/perl

...
# access to NOTSOSECRET by means of a protected method
$inherit->inheritNotSoSecret("notsosecret");
print $inherit->inheritNotSoSecret . "\n";