my $M = Person->new( name => 'A', sex => 'please' );
print $M->dump;