my $person = XMLin($filename)