use Mail::Sendmail;
my $message = <<HTML;
	Thanks For Using.<br >Best Regards,<br >Sachin
HTML

my $mdate = Mail::Sendmail::time_to_date( time() - 86400 );
$message .= $mdate;
my %mail = ( From => 'sachin_bca@live.com',
					 To => 'sachin_bca@live.com',
					 Subject => "Subject: Test Mail\n",
					 Message => $message,
                                        'Content-type' => 'text/html; charset="iso-8859-1"'
					);
			sendmail(%mail) || print STDERR "Error sending mail: $Mail::Sendmail::error\n";