#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Std;
use Email::Send;
use Email::Send::Gmail;
use Email::Simple::Creator;
getopt('csb', \ my %opts );
my $email = Email::Simple->create(
	header => [
		From    => 'sangeethapriya.notification@gmail.com',
		Bcc		=> $opts{c},
		Subject => $opts{s},
	],
body => $opts{b},
);

my $sender = Email::Send->new(
{   mailer      => 'Gmail',
	mailer_args => [
		username => 'bala.nita09@gmail.com',
		password => 'sndpmgr123',
  ]
}
);
eval { $sender->send($email) };
die "Error sending email: $@" if $@;