#!/usr/bin/perl
use MIME::Lite;
my $msg = MIME::Lite->new(
    From    => 'some1@somewhere',
    To     => 'some1@somewhere',
    Cc      => 'some2@somewhere,some3@somewhere,some4@somewhere,some5@somewhere',
    Type    => 'multipart/mixed',
    Subject => "Fetch issues as on '$dateFile'",
    Dispostion=>'inline',
   );
$msg->attach(
    Type     => 'TEXT',
    Data     => "Hi,Please find attachement for Fetch issues seen in categories  as on '$dateFile'",
);
$msg->attach(
     Type     => 'text',
    Path     => '/var/newshunt/Fetch_script/exceptions_reasons.txt',
    Filename => 'exceptions_reasons.txt',
    Dispostion=> 'inline',
);
 $msg->send;