use HTML::Entities;
use Mail::Sendmail;
use MIME::Lite;
use Term::ANSIColor;
use Time::localtime;
use HTML::Mason;
my $ti = localtime;
my ($day,$month,$year)=($ti->mday,$ti->fullmonth,$ti->year);
# DEFINE A HASH
%coins = ( "Quarter" , 25,
"Dime" , 10,
"Nickel", 5 );
$html = <
| Keys | Values |
<%perl>
while (($key, $value) = each(%coins)){
| $key | ;
$value |
;
<%perl>
}
;
END_HTML
$msg = MIME::Lite->new(
from => 'abc@mydomain.com',
To =>'def@mydomain.com',
Subject =>'Report',
Type =>'multipart/related'
);
$msg->attach(
Type => 'text/html',
Data => qq{
$html
},
);
$msg->attach(
Type => 'image/gif',
Id => 'banner.jpg',
Path => 'C:\Users\Pictures\banner.jpg',
);
MIME::Lite -> send ('smtp','xxxs.xxxx.xxxxx.com' );
$msg -> send;