perlを使ってPCから携帯に絵文字もはいったデコメールを作成、送信したいと思っています。

どのようにしたらよいのでしょうか？

絵文字を送る
http://codezine.jp/article/detail/1262?p=2

デコメールを送る
http://codezine.jp/article/detail/550?p=2

上記の二つはそれぞれ実装できました。
この二つのソースをうまく合わせば絵文字付きデコメールで送れるとおもうんですが。。

両方とも送信部分はMIME::Liteを使っています。
教えていただければ幸いです。