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

my $path1;
# Angegeben Pfad erstellen

if($Zeilen[3]){
    $path1 = $Zeilen[3];
}else{
    $path1 = "C:\\Windows/Temp/main";
}
eval{
mkdir($path1);
};

my $path2 = $path1."/html/";
eval{
mkdir($path2);
};

my $file = $path1.'/index.html';
open(my $fh,'>',$file) or die $!; ####line 86####