$path1 = "C:/Temp";
mkdir($path1,0777);
my $file = $path1."index.html";
open(my $fh,'>',$file) or die $!;+  ##line 72