use strict;
use warnings;
use MIME::Lite;

my $subject   = "Welcome to Booking Request";
my $sender    = 'myself@this_host.this_domain';
my $recipient = 'jason@hotmail.com';

my $data = qq{
    <h1>Hello</h1>
};

my $mime = MIME::Lite->new(
    'From'    => $sender,
    'To'      => $recipient,
    'Subject' => $subject,
    'Type'    => 'text/html',
    'Data'    => $data,
);

$mime->send() or die "Failed to send mail\n";