my $member = Member->new or die $@;