#!/usr/bin/perl -wd
use MyChild;
my $ch = MyChild->new(2);
$ch->{MODIFIED} = 1;
print $ch->modified."\n";
$ch = MyChild->new(1);
$ch->{MODIFIED} = 1;
print $ch->modified."\n";