#!/usr/bin/perl
use Child1Class;
$object = Child1Class->new();
print $object->useChild1();