foreach $datei (@dir) {
	$alter = -M $datei;
	print $alter;
}