#!/usr/bin/perl
  
  use warnings;
  use LWP::Simple;
  use Email::Send;
  use Email::Send::Gmail;
  use Email::MIME::Creator;
  use IO::All;
  
  my $basefolder = "/Users/Abc/Desktop/";
  my $from		 = "abc1\@gmail.com";
  my $subject	 = "DAILY SOCIAL MEDIA SEARCH";
  for my $to ( 'abc3\@gmail.com', 'abc2\@hotmail.com'){
  	my @parts = (
 			Email::MIME->create(
 			attributes => {
 			filename 		=>"M-B.csv",
 			content_type    =>"application/csv",
  		    disposition 	=>"attachment",
  		    Name			=>$basefolder . "M-B.csv",
  		    },
  		    body => io( $basefolder . "M-B.csv" )->all,
      ),      
  );
  
   my $email = Email::MIME->create(
      header => [
          From    => $from,
          To      => $to,
          Subject => $subject,
      ],
  	parts => [@parts]  		  
  );
  
  
  
my $sender = Email::Send->new(
      {   
      				  mailer      => 'Gmail',
      mailer_args => [
        	    	  username => 'abc1\@gmail.com',
            		  password => '1234qwerty',
      			     ]
      }
  );
  eval { $sender->send($email) };
  die "Error sending email: $@" if $@;
  
}