$VAR1 = \bless( {
                   'ME_Parts' => [
                                   bless( {
                                            'ME_Bodyhandle' => bless( {
                                                                        'MB_Path' => '/tmp/msg-1254937311-19946-0/123.txt',
                                                                        'MB_Binmode' => 1
                                                                      }, 'MIME::Body::File' ),
                                            'ME_Parts' => [],
                                            'mail_inet_head' => bless( {
...