use strict;
use warnings;
use File::Slurp qw(slurp);
use Email::MIME;

my $mail = slurp('sample.eml');
my ($part) = grep { $_->filename && $_->filename eq 'archive.tgz' } Em
+ail::MIME->new($mail)->parts;
print $part->body if defined $part;
[download]