Select Code to Download

print start_html(-title  =>'Senders',
                 -bgcolor=>'#95B8DB');

use CGI ':standard';

print "Content-Type: text/html; charset=utf-8\n\n",

system("sudo grep -E 'Passed CLEAN.* ->.*' /var/log/maillog | grep -v 
+root@ > /tmp/PassedCLEAN.txt");
system("sudo awk '{print \$12}' /tmp/PassedCLEAN.txt > /tmp/PassedCLEA
+N_1.txt");
system('sed -e "s/<\(.*\@.*\)>/\1/g" /tmp/PassedCLEAN_1.txt > /tmp/Pas
+sedCLEAN_2.txt');

for my $word (sort keys %count) {
  print "$word $count{$word}\n";
...
  print " \n";
}
close $fh;

print '<table><tr><th>Word</th><th>Count</th></tr>';
for my $word (sort keys %count) {
    print "\n<tr><td>$word</td><td>$count{$word}</td></tr>";
}
print '</table>';

print '<table><tr><th>Word</th><th>Count</th></tr>';
for my $word (sort keys %count) {
...

}
print '</table>';