#!/usr/local/bin/perl
#TryingIt.pl
use CLASS2;
my $object1=CLASS2->new();
print "The object says: ",$object1->gettext(),"\n";

print "The object class is ",ref $object1, "\n";

#The object says: I come from CLASS1.pm

#The object class is CLASS2