Sending html e-mail with attachment

send_html_email_with_attachment.pl

#!/usr/bin/perl -w

use warnings;
use strict;
use MIME::Lite;
use MIME::Base64;
use File::Slurp;
use Encode;

my $MyAttachment = 'attachment.bin';
my $to_email = 'abc@example.com';
my $from_email = 'def@example.com';
my $html_msg = decode_utf8(read_file('html_email.html')) ;

my $msg = MIME::Lite->new (
        Subject => "HTML email test",
        From    => $from_email,
        To      => $to_email,
        Type    =>'multipart/mixed'
) or die "Error creating multipart container: $!\n";

$msg->attach (
        Type    => 'text/html',
        Data    =>  $html_msg
) or die "Error adding the html message part: $!\n";

$msg->attach (
        Type => 'text/plain',
        Path => $MyAttachment,
        Filename => $MyAttachment,
        Disposition => 'attachment'
) or die "Error adding $MyAttachment: $!\n";


$msg->send();