open (my $file_handle, '>', $in_file) or die "Cannot Open html file: $in_file";

...
...
...
close file_handle;