#!/usr/bin/perl
                                                                 
use open ':encoding(utf8)';
use XML::Feed;
                                                                  
use English;

use strict;
use warnings;

my $feed = XML::Feed->new('RSS');
$feed->title('Feed');
$feed->link('https://www.example.com/feed.rss');
$feed->language('en');
$feed->description('Feed from a to ِ');

my $entry = XML::Feed::Entry->new();
$entry->link('https://www.example.com/one.html');

$entry->title('abc...هنِ');

$feed->add_entry($entry);
print $feed->as_xml;

exit(0)