my $in; # Variable für Eingabe-Dateihandle

# Datei mit 3-Paramater-open einlesen
open($in, '<', '/kompletter/pfad/auf/TEST') 
  or die "Fehler: Datei zum Lesen öffnen schlug fehl ($!)";    # hier wird auf Fehler getestet und abgebrochen was ein Problem vorhanden

while( my $line = <$in> ) { $variable = $line; }

close($in)
  or die "Fehler: Datei konnte nicht geschlossen werden ($!)";