Select Code to Download

#!/usr/bin/perl -w

...

# $entity->smtpsend;
$entity->print( \*STDOUT );

Content-Type: multipart/mixed; boundary="----------=_1097554778-11801-
+0"
Content-Transfer-Encoding: binary
...
that you have won
a number of tribbles.
------------=_1097554778-11801-0--

Content-Disposition: attachment; filename=blah.pl
Content-Type: text/x-perl; name=blah.pl; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

$entity->attach( Disposition => 'attachment', 
                 Filename => "report.txt", 
                 Type => 'text/plain', 
                 Data => join( "\n", @attach ) )
  or die "Error adding the text message part: $!\n";

Content-Type: text/plain; name="report.txt"
Content-Disposition: attachment; filename="report.txt"
Content-Transfer-Encoding: binary