package MARS::Base;
sub log{... }

##</code><code>##

package MARS::Klarf1_2;
@UNIVERSAL::ISA = qw(MARS::Base);

##</code><code>##

my $K = MARS::Klarf1_2->new();
   $K->log( 'Blahh blahh blahh' );