# Datei zum Lesen (<) öffnen
open my $inFH, "<", "quelldatei.txt";
# Andere Datei (die es vielleicht noch nicht gibt) zum Schreiben (>) öffnen
open my $outFH, ">", "zieldatei.txt";

# Die erste Zeile der Quelldatei auslesen (später natürlich nicht nur die erste)
my $firstrow = <$inFH>;

# Diese Zeile in die Zieldatei schreiben.
print $outFH $firstrow;

# Beide Filehandles wieder schließen
close $inFH;
close $outFH;