my $DATEI='';
$x = 'fehler.log' #wird übergeben daher nur in dem Beispiel jetzt

$x = "/LOG/$x";
open(my $DATEI,"<",$x) || die "Error: $!";
my @Zeilen = <$DATEI>;
print @Zeilen;
close($DATEI);