Zeilen aller Dateien eines Verzeichnisses zaehlen

[Bakka]

Hailo...
Problem: ich moechte gerne alle Zeilen von Dateien eines bestimmten types in einem Verzeichnis Zaehlen...

Mein unten stehendes skript sollte(so meine ich) diese aufgabe erledigen
es liest allerdings nur die erste Datei...
wenn man allerding statt des ARGV z.B. ein *.pl einsetzt dann funktioniert es richtig...
ich will es aber "flexibel" halten.
--> Frage also: warum macht es das so wie es es tut?
und wie kann ich mein skript davon ueberzeugen so zu arbeiten wie ich es will?

Vielen Dank im Vorraus,

Bakka

hier mein skript:

#!/usr/local/bin/perl
#------------------------------------------------------------
#   Program to count rows

by: bakka created:27.04.2000

#------------------------------------------------------------
$anzahl=0;
foreach $filename (<$ARGV[0]>)
{
  @file="";
  pop(@file);
  open(LESEN,"<$filename")die"$!";
  @file=(<LESEN>);
  close(LESEN);
  for (@file)
  {
    $anzahl++;
  }
  print $filename
}
print "Zeilen gesamt: $anzahl \n";