my $mime = MIME::Lite->new(
		From    => 'admin@server',
		To      => 'you@overthere',
		Subject => "Your invoice",
		Type    => 'multipart/mixed',
	);

	$mime->attach( Data => 'Heres your invoice' );
	$mime->attach( Data => $invoice_as_pdf, Type => 'AUTO', Disposition => 'attachment', Filename => 'invoice.pdf' );
	
	$mime->send( 'sendmail', FromSender => 'admin@server' );

##</code><code>##

MIME-Version: 1.0
Content-Transfer-Encoding: binary
Content-Type: multipart/mixed; boundary="_----------=_1365192382184080"
X-Mailer: MIME::Lite 3.028 (F2.82; T1.34; A2.09; B3.13; Q3.13)
Date: Fri, 5 Apr 2013 14:06:22 -0600
From: admin@server
To: you@overthere
Subject: Your invoice


This is a multi-part message in MIME format.


--_----------=_1365192382184080

Content-Disposition: inline
Content-Transfer-Encoding: 8bit
Content-Type: text/plain


Heres your invoice

--_----------=_1365192382184080

Content-Disposition: attachment; filename="invoice.pdf"
Content-Transfer-Encoding: base64
Content-Type: application/octet-stream; name="invoice.pdf"


JVBERi0xLjQKMSAwIG9iago8PAovVGl0bGUgKP7/AEEAbABnA....==


--_----------=_1365192382184080--