use strict;
use warnings;
use MIME::Lite;

my $msg = MIME::Lite->new(
   To      => $email,
   From    => $email,
   Subject => 'Subject:$email testing',
   Data    => 'Somthing Somthing Somthing Somthing',
);
$msg->send('sendmail');