my $query = CGI->new();
if ($query->param('full_name')) {
	my $full_name = $query->param('full_name');
	print p("<br>\$full_name = $full_name\n<br>");
	print p("<br>\$roster_entries{$full_name}->param('address') = $roster_entries{$full_name}->param('address')\n<br>");
}
else { # Display dropdown box with names
	print p("In order to update your contact information, select your name below and click the Submit button\n");
	print start_form;
	print p($query->popup_menu( -name=>'full_name',
-values=>[sort keys %roster_entries] ));
	print p(submit("Submit"));
	print end_form, end_html;
}