$part_content = MIME::Lite->new(
			Type => 'text/plain',
			Data => $text_mail,
			Encoding => 'quoted-printable',
		);

        $part_content->attach(
			Type => 'application/pdf',
			Data => $pdf,   
			Filename => q(buchung_).$token.q(.pdf),
			Disposition => 'attachment'                
		);
# and then:
$msg->attach($part_content);
$msg->send || print "you DON'T have mail!";