open (FILE, "$myfile") || die "Can't open '$myfile': $!\n";
while ($zeile = <FILE>) {
        #tue etwas mit $zeile
}
close FILE;