use strict;
use warnings;

use FindBin;
use lib $FindBin::Bin;
use child_class;


my $person = child_class->new(id=>1,name=>'aaa',address=>'bbb') or die();

$person->write();