package Parent;

package Child;

@Child::ISA = 'Parent';

package main;

chomp(my $in = <STDIN>);
my $kid;
if ($in =~ /(\w+)/)
{
    $kid = $1;
}

print $kid->isa( 'Parent' );
print 'Child'->isa( 'Parent' );