my $toplevel = $tk{mw}-> Toplevel;
	my $top_frame = $toplevel-> Frame;
	my $folder_level;
	my $subfolder_level;
	my $frame_label = $top_frame-> Label(-text=> 'Please select the ACE permission type');
	my @pl = qw/-side top -pady 2 -anchor w/;
	$top_frame-> pack (@pl);			
	foreach my $p ('No Access', 'List', 'Read', 'Add' ,'Add & Read', 'Change','Full Controll','Special Directory Accesss','Special File Access')
	{
		$top_frame->Radiobutton( -text     => "ACE :  $p",
											            -variable => \ $folder_level,
											            -relief   => 'flat',
											            -value    => $p, )->pack(@pl);										    				      
	}
	my $ok_buttn = $top_frame-> Button(-text=>'OK', 
															-borderwidt=>5, 
															-width=>10, 
															-command=> sub{print "\n$folder_level\n";
																						$top_frame->distroy; } )-> pack;