Select Code to Download

my $roster_entry;
my %roster_entries;
...
    $roster_entry->param('full_name', $full_name);
    $roster_entries{$full_name} = $roster_entry;
}

my $query = CGI->new();
if ($query->param('full_name')) {
...
    print p(submit("Submit"));
    print end_form, end_html;
}

$full_name = Last1, First1 
$roster_entries{Last1, First1}->param('address') = ->param('address')

$full_name = Last1, First1 
$roster_entries{Last1, First1}->param('address') = 111 First Street

#!c:/perl/bin/perl.exe

...
    print h1("Unexpected error"), p($error), end_html;
    die $error;
}