# $mail is content of message as string.
my $stripper = Email::MIME::Attachment::Stripper->new($mail);
my $msg = $stripper->message;
my @attachments = $stripper->attachments;

# Add fake text so there is more than one part.
# How do we determine if we need to add fake part?
# check content disposition
if ($msg->parts == 1 && scalar(@attachments) == 0)
{
    my $part1 = ($msg->parts)[0]; # These will be Email::MIME objects, too.
    my $disp = $part1->header("Content-Disposition");

    if ($disp && $disp =~ /attachment\s*;/i)
    {
        my @fake_bonus_parts = (
            Email::MIME->create(
                attributes => {
                    content_type => "text/plain",
                    disposition  => "inline",
                    charset      => "US-ASCII",
                },
                body => "Hello, World!",),
            );

        $msg->parts_add(\@fake_bonus_parts);

        $stripper = Email::MIME::Attachment::Stripper->new($msg->as_string);
        $msg = $stripper->message;
        @attachments = $stripper->attachments;
    }
}

# Continue attachment processing....