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 ($!)";

my $out;

open($out, '>', "/kompletter/pfad/auf/Test") # Datei für Ausgabe erzeugen; vorhandene wird überschrieben
  or die "Fehler: Datei zum Schreiben konnte nicht erzeugt werden ($!)"; # hier wird auf Fehler getestet und mit Fehlermeldung abgebrochen

print {$out} $variable 
  or die "Fehler: Daten konnten nicht geschrieben werden ($!)";

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