sub readDir{
	my @all = readdir(DIR);
	for my $x (sort (@all)){
		next if($x =~ /^\.$/);
		$listbox->insert('end', $x);
		if(-d $x){
			print "$x\n";
			$listbox->itemconfigure($listbox->size()-1, -foreground=>"#F00");
		}
	}
}