foreach (glob("*.cgi"))
{
	my $mode = (stat($_))[2];
	$mode = sprintf '%04o', $mode & 07777;
		if($mode >= 0755) { $mode = "<span style=\"color:green;\">$mode</span>"; }
		else { $mode = "<span style=\"color:red;\">$mode</span>"; }
			print $_." - ".$mode."\n";
}