my $dateiname = "/data/xyz.dat";
		open(DATEI, '<'.$dateiname) or die "Kann $dateiname nicht öffnen";
		while(<DATEI>)
		{
			my $zeile = chomp($_);
			# Jetzt irgendwas mit der Zeile machen
		}
		close(DATEI);