Nur erste Zeile einlesen?

[Struppi]

Hallo,
wahrscheinlich das einfachste Problem (Perl) von allen, hab nur bisher keine Lösung gefunden.
Wie kann ich aus einer Textdatei mit mehreren Zeilen nur die erste Zeile einlesen (geht das auch mit "open") oder ausgeben (print)?

open F, "dateiname" || die "Kann Dateinam nicht öffnen, weil: $!";
my $zeile = <F>;
close F;

print $zeile;

Struppi.