print SENDMAIL <<"EOM";
[snip]
Sample from the firewall logs:
EOM

for (@fwlog) {
  [snip]
  print SENDMAIL $_;
}