Tao of Mac

Mar 9th 2003 · 1 min read

MMS/Scripts/mmsgif

Here's a (real simple) script to e-mail a GIF file, contrived with CPAN:MIME::Lite:

#!/usr/bin/perl
use MIME::Lite;

$msg = new MIME::Lite
        From     => 'me@someplace',
        To       => 'MSISDN@mmscenter',
        Subject  => 'You have mail',
        Type     => 'image/gif',
        Encoding => 'base64',
        Path     => '/home/me/web/animation.mms.gif';
$msg->send;

Couldn't be easier.