#!/usr/bin/perl

use strict;
use warnings;

use Child ;

my $obj = Child->new();

$obj->show();