use MIME::Lite;

### Start with a simple text message:
    $msg = MIME::Lite->new(
                 From    =>'vijay@india.com',
                 To      =>'vijay@yahoo.co.in',                 
                 Subject =>'A message with 2 parts...',
                 Type    =>'TEXT',
                 Data    =>"Here's the GIF file you wanted"
                 );
$msg->send();