my  $feed = XML::Feed->parse(URI->new($url))
    or die "Feed error with [$url] " . XML::Feed->errstr;

print 'Feed title is ', $feed->title, "\n";    # ADD THIS LINE

##</code><code>##

14:12 >perl 1305_SoPW.pl

>>>> Getting atom url for [https://dev.cfengine.com/projects/core/activity.atom] records newer than [6000]min at 1305_SoPW.pl line 37.
Feed title is CFEngine 3 Community Edition: Activity
$VAR1 = bless( {
...

##</code><code>##

my $args = ({});
$args->{debug} = 1;

##</code><code>##

my $args = { debug => 1 };