my $dateimodus = (stat("DATEI.NAME"))[2];
printf "Dateimodus ist: %o",$dateimodus;