#########################
#Create the Menu Fuction#
#########################
sub menu{
system "cls";
print "You have entered these Values for each of these fields.";
print "If you wish to Fix any of the information now. Select Number to Change:\n";

print "\t1. First Name: $fname\n";
print "\t2. Last name: $lname\n";
print "\t3. The School you work at: $school\n";
print "\t4. Your phone: $phone #\n";
print "\t5. Position: $position\n";
print "\t6. Role: $role\n";
print "\t7. Unique Password: $pass\n";
print "\t8. Done\n";


print "Type a number to Choose to fix: ";



#----------------------If user Picks 1-----------------------------------#
	if(<STDIN>== int 1)
	{
		system "cls";
		$fname = "";
		while ($fname eq "")
		{
			printf "\n\nPlease Enter your First Name: ";
			$fname = <STDIN>;
			chomp($fname);
			&menu;
		}#end of while loop	
	}#end of if();
	
	if(<STDIN>== int 2)
	{
		system "cls";
		$lname = "";
		while ($lname eq "")
		{
			printf "\n\nPlease Enter your Last Name: ";

			$lname = <STDIN>;
			chomp($lname);
			&menu;
		}#end of while loop	
	}#end of if();	
	
}#end of sub menu
menu;