print "\nInput record: ";
my $record = <>;
$record = trim($record); 
print "The $record of $$userfullname{name} is: 
$$userfullname{$record}\n"; 
mainmenu();
}

sub trim($)
{
	my $string = shift;
	$string =~ s/^\s+//;
	$string =~ s/\s+$//;
	return $string;
}