my $msg = MIME::Lite->new(
    From     =>'me@myhost.com',
    To       =>'you@yourhost.com',
    Cc       =>'some@other.com, some@more.com',
    Subject  => $title,
    X-SourceScript => $0,
    Data     => $message
);