my $str = $client->message_string($id) or die "$0: message_string: $@";

Email::MIME->new($str)->walk_parts(sub {
    my($part) = @_;
    #Skip non-attachment parts
    return unless $part->content_type =~ /\bname="([^"]+)"/;
    #Keep the filename from the MIME info
    my $name = "$1";
    #No spaces in file names we're writing.
    $name =~ s/ /_/g;

    print "Writing $name...\n";
    #Open the file for writing
    open my $fh, ">", $name or die "$0: open $name: $!";
        my $blob = $part->body_raw;
        my $cleanPDF = decode_base64($blob);
        print $fh "$cleanPDF";
    close $fh or warn "$0: close $name: $!";
});