open my $HTML, '>', 'myhtml.html' or die $!;
print $HTML "$1\n";
close $HTML or die $!;