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 ], );