Select Code to Download

    my $msg = MIME::Lite->new(
            From    => $from,
...
            Type    => $type,
            Data    => $htmlt
       );

  $str = $msg->header_as_string;
  print "\n<br> Header: \n<br>".$str."<br>\n";