##
## Decode data from serialized form
##
my $person;
{
    open my($fh), "<person.dat";
    binmode $fh;
    local $/;
    $person = Person->decode(<$fh>);
    close $fh;
}
print $person->{name}, "\n";
print $person->name,   "\n";  ## ditto