my $file = "whatever";
    open my $out, ">", $file or die "Failed to open $file: $!";
    print $out @htmlLines;
    close $out or die "Failed to close $file: $!";