öhm.. des geht ..habs probiert ... Aber es gibt sicher noch viel simplere Lösungen, aber ich bin schon 31 Stunden wach, also muss das reichen. ..Sag hinterher nicht, das das net geht ...es geht!

So denn... ich geh erstam schlafen jetzt ... *zzZZZZ* ...bye bye

my $Datei = "/etc/shadow";

if (open(DATA,"<$Datei")) {
  my @TEMP = <DATA>;
  close(DATA);

# ...Mach was
  # ...Mach noch was anderes

print "Datei vorhanden :)\n";
  }
else {
  print "Datei is net da :(\n";
  }