Prüfen ob Datei leer ist

[sprain]

Hallo

Anfängerfrage: Wie kann ich in Perl prüfen, ob eine Text-Datei leer ist?

Zum Beispiel so:

$Pfad = "/pfad/zu/deiner/datei.txt";
open(TEMPLATE, $Pfad);
  while (<TEMPLATE>)
    {
        $inhalt .= $_;
    }
close(TEMPLATE);

if($inhalt eq ""){->Datei leer}

Gruss, sprain