if (-f $datei) {
  my $modificationTime = -M _; # _ ist kein tippfehler, sondern caching
  # ...
} # if
else {
  die "Error: file $datei is not existing\n";
} # else