foreach $field (qw(FName LName Department Title HireDate Picture RecID)) {
	print "$input->{$field}<BR>\n";
}