Select Code to Download

#!/usr/bin/env perl
#
use strict;
...
{ buf_ref => \$attachment->{payload} } )
or die "Can't write $attachment->{filename}: $!\n";
}

my $stripper = Email::MIME::Attachment::Stripper->new($intext);
my $email_mime = $stripper->message;