Select Code to Download

use warnings;
use strict;
...
open(my $out, '>', 'output.html') or die "Could not open 'output.html'
+: $!";
print $out $cleanHtml;
close $out or die "Could not close: $!";