Dear Monks, I am trying to send email with pdf file via catalyst::plugin::email module.
However, after I check the email and download the attatched pdf file, I just got "file damaged" message.
I am sure the original pdf file can be opened normally.
Please help me to find what is wrong with my code. Thanks! 
    my @parts = (
        Email::MIME->create(
            attributes => {
              content_type => 'application/pdf',
              encoding     => 'quoted-printable',
              name         => 'document.pdf',
            },
            body => io( 'document.pdf' )->all,
        ),
        Email::MIME->create(
            attributes => {
              content_type => "text/plain",
              disposition  => "attachment",
              charset      => "US-ASCII",
          },
          body => "Hello there!",
        ),
    );

    my $r = $c->email(
        header => [
            From    => 's4@student.tku.edu.au',
            To      => 's3@student.tku.edu.au',
            Subject => 'Hello!'
        ],
        parts  => [ @parts ],
    );

[download]

In reply to email pdf file - file damaged by madison.sacd

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.