use strict; use MIME::Base64; [ { index => 0, mime_type => 'x-message/rfc822-headers', mime_entity => '', '->get_header subject' => 'an image', '->get_header from' => 'Rob Nagler ', '->get_header date' => '2453757 65705', }, { index => 1, mime_type => 'application/pdf', '->get_file_name' => 'SCOPE Alliance Jan07 Mngt_Inv. #10501.pdf', '->format_uri_for_part SITE_ROOT' => '/SCOPE%20Alliance%20Jan07%20Mngt_Inv.%20%2310501.pdf?p=1&t=1', mime_entity => MIME::Base64::decode('JVBERi0xLjQNJeLjz9MNCjYgMCBvYmoNPDwgDS9MaW5lYXJpemVkIDEgDS9PIDkgDS9IIFsgMTAy'), }, { index => 2, mime_type => 'application/pdf', '->get_file_name' => 'SCOPE Alliance Statement 1.15.07.pdf', '->format_uri_for_part SITE_ROOT' => '/SCOPE%20Alliance%20Statement%201.15.07.pdf?p=1&t=2', mime_entity => MIME::Base64::decode('JVBERi0xLjQNJeLjz9MNCjYgMCBvYmoNPDwgDS9MaW5lYXJpemVkIDEgDS9PIDkgDS9IIFsgMTAw'), }, ];