open(DATEI, "<infos.txt") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);

my $path1;
# Angegeben Pfad erstellen
if($Zeilen[3]){
    $path1 = $Zeilen[3];
    
}else{
    $path1 = "C:/Temp";
}
mkdir($path1,0777);
my $file = $path1."index.html";
open(my $fh,'>',$file) or die $!;