gistfile1.txt

bless( {
  body => \"MusicBrainz user 'acid2' has sent you the following message:\r\n------------------------------------------------------------------------\r\nTesting\r\n------------------------------------------------------------------------\r\nIf you would like to respond, please visit\r\nhttp://www.musicbrainz.example.com/user/acid2/contact to send 'acid2' an em=\r\nail.\r\n\r\n-- The MusicBrainz Team\r\n",
  body_raw => "MusicBrainz user 'acid2' has sent you the following message:\r\n------------------------------------------------------------------------\r\nTesting\r\n------------------------------------------------------------------------\r\nIf you would like to respond, please visit\r\nhttp://www.musicbrainz.example.com/user/acid2/contact to send 'acid2' an em=\r\nail.\r\n\r\n-- The MusicBrainz Team\r\n",
  ct => {
    attributes => {
      charset => "UTF-8"
    },
    composite => "plain",
    discrete => "text"
  },
  header => bless( {
    headers => [
      "To",
      "\"acid3\" <ollie\@ocharles.org.uk>",
      "Sender",
      "MusicBrainz Server <noreply\@musicbrainz.org>",
      "Subject",
      "Hello!",
      "From",
      "\"acid2\" <acid2\@users.musicbrainz.org>",
      "Reply-To",
      "MusicBrainz Server <noreply\@musicbrainz.org>",
      "Bcc",
      "\"acid2\" <ollie\@ocharles.org.uk>",
      "Date",
      "Wed, 8 Jun 2011 13:27:16 +0100",
      "MIME-Version",
      "1.0",
      "Content-Type",
      "text/plain; charset=\"UTF-8\"",
      "Content-Transfer-Encoding",
      "quoted-printable"
    ],
    mycrlf => "\n"
  }, 'Email::MIME::Header' ),
  mycrlf => "\n",
  parts => []
}, 'Email::MIME' )