#!/usr/bin/perl

use utf8;
use open ':encoding(utf8)';
use XML::Feed;

use English;

use strict;
use warnings;

my $d='Feed from a to ِ';
my $t='abc...هنِ';

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

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

$entry->title($t);

$feed->add_entry($entry);

print "Description: $d\n";
print "Title: $t\n";

print $feed->as_xml;

exit(0)