Select Code to Download

#!/usr/local/bin/perl
CLASS1.pm
...
    return "I come from CLASS1.pm\n";
    };
return 1;

#!/usr/local/bin/perl
#CLASS2.pm
...
    my $self = CLASS1->new; #call constructor method of CLASS1
    return bless($self);
    }

#!/usr/local/bin/perl
#TryingIt.pl
...
#The object says: I come from CLASS1.pm

#The object class is CLASS2