## This is the button that initiates the sub ADMISSION

$COLUMN_1->Button(-image=>$admiss_1, 
		  -width=>179,
		  -border=>0,
		  -background=>'#c2d297',
		  -relief=>'flat',
		  -command=>sub{ ADMISSION('1') } )
	          ->pack(-side=>'top');

## This is part of the sub ADMISSION that contains a text field ($namefield) that the variable "$admiss_?_name" needs to be assigned to.(With the question mark being replaced by the "1" being passed by the button)

sub ADMISSION {
	$namefield->Text(-width=>30,-height=>1)->pack();
		}