sub records {
print "Input user's first name: ";
my $userfirst = <>;
$userfirst = trim($userfirst);
print "Input user's last name: ";
my $userlast = <>;
$userlast = trim($userlast);
$userfullname = $userfirst.$userlast;
$userfullname = trim($studentfullname);
print "$userfullname\n";