use HTML::Entities qw( encode_entities );

sub text_to_xml {
    return encode_entities($text, '<&');
}