open(DATEI, "data");
while(<DATEI>)
  { print $_; }
print $., " Zeilen gelesen\n";
close(DATEI);