#!C:\perl\bin\perl.exe -w use FindBin; use lib "$FindBin::Bin/.."; use lib "c:\\perl\\site\\lib"; use strict; use warnings; use MIME::Lite; my @body=('test'); my $to = 'sou@rediffmail.com'; my $from = 'sou@rediffmail.com'; my $subject = 'Test Email'; my $message = 'This is test email sent by Perl Script'; my $msg = MIME::Lite->new( From => $from, To => $to, Subject => $subject, Data => $message ); $msg->send();