$msg = MIME::Lite->new(
        From    => 'xxx@xxx.xxx',
        To      => 'xxx.xxx@xxx.xxx',
        Subject => 'Tickets not having specific owner',
        'X-Priority' => 1,
        'X-MSMail-Priority' => 'High',
        Type    => 'multipart/mixed');
        
	$msg->attach(
        Type     =>'text/html',
        Data => qq{ XXXXXX});
        $msg->send();