#!/usr/bin/perl
  
  use strict;
  use warnings;
  use LWP::Simple;
  use Email::Send;
  use Email::Send::Gmail;
  use Email::MIME::Creator;
  use IO::All;


    my $url = "https://www.google.co.in/?gws_rd=cr&ei=VJzjUrT3LMaPrgeQ5oHQDg/csv";
    my $file = "C:\Users\Administrator\Desktop\a.csv";

    my $status = mirror($url,$file);

    die "Cannot retrieve $url" unless is_success($status);

    my $url1 = "https://www.google.co.in/?gws_rd=cr&ei=VJzjUrT3LMaPrgeQ5oHQDg/csv";
    my $file1 = "C:\Users\Administrator\Desktop\a.csv";

    my $status1 = mirror($url1,$file1);

    die "Cannot retrieve $url" unless is_success($status1);



  my $email = Email::MIME->create(
      header => [
          From    => 'abc@gmail.com',
          To      => 'abc@gmail.com',
          Subject => 'Test Mail',
		  Message => '
Hi ,
How are you?
Test mail please ignore.
Thanks,
',
         CC => 'abc@gmail.com'
      ],
	);
	
	attributes => [ {
       filename         =>"a.csv",
        content_type  =>"application/csv",
        disposition     =>"attachment",
         Name        =>"C:\Users\Administrator\Desktop\a.csv",
         },
  body => io( "C:\Users\Administrator\Desktop\a.csv" )->all,
  {
           filename         =>"a.csv",
            content_type  =>"application/csv",
           disposition     =>"attachment",
            Name            =>"C:\Users\Administrator\Desktop\a.csv",
          },
 body => io( "C:\Users\Administrator\Desktop\a.csv" )->all,
],

  
  );

  my $sender = Email::Send->new(
      {   mailer      => 'Gmail',
          mailer_args => [
              username => 'abcgmail.com',
              password => 'abcd0000',
          ]
      }
  
  );

  eval { $sender->send($email) };
  die "Error sending email: $@" if $@;