# Create the message
$msg = MIME::Lite->new(
             From    =>'me@myhost.com',
             To      => $address,
             Subject => $subject,
             Type    => 'multipart/mixed'
             );

# Add the text message part:
$msg->attach(Type     =>'TEXT',
             Data     =>"Here's the GIF file you wanted"
             );

# Add the file part:
$msg->attach(Type     =>'TEXT',
             Path => $filename,
             Disposition => 'attachment'
             );

$msg->send ();