use strict;
my $fh;
my $file_name = "/path/to/resultfile.txt";
open($fh, '<', $file_name) or die ("couldn't open $filename");
my $fh2;
my $html_file = "/path/to/htmlfile.html";
open($fh2, '>', $html_file) or die ("couldn't open $html_file");
print $fh2 "Results";
while (<$fh>) {
print $fh2 "$_
";
}
print $fh2 "";
close $fh;
close $fh2;