#!/usr/local/bin/perl
CLASS1.pm
package CLASS1;
sub new{
    my $self = {};
    bless($self);
    return $self;
    }
sub gettext{            #this is the method I want to inherit
    return "I come from CLASS1.pm\n";
    };
return 1;