#!/usr/local/bin/perl
#CLASS2.pm
package CLASS2;
#import into the current namespace the symbol table of CLASS1
use CLASS;
@ISA=qw(CLASS1);   #Inherit from Class1.

sub new{
    my $self = CLASS1->new; #call constructor method of CLASS1
    return bless($self);
    }