Select Code to Download

Select or download this

my $body = $fdf->_fdf_header;
  foreach (sort keys %{$fdf->content}) {
  $body .= sprintf ($fdf->_fdf_field_formatstr,
...
        Data => $body;
        Disposition => 'attachment'
                 );

Select or download this

my $msg = MIME::Lite->new(
                 From    =>$cfg->Email,
                 To      =>$cfg->To,
...
        Data => $body_encrypted,
        Disposition => 'attachment'
                 );