Select Code to Download

use MIME::Entity;

...
         or die "open: $!";
  $msg->print(\*MAIL);
  close MAIL;

my @data = ('one', 'two', 'three');
foreach (@data) {
...
one
two
three