my $path1;

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

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