my $atom_dt_format = DateTime::Format::Atom->new();

my $feed_title       = ...;
my $feed_content_url = ...;

my $feed = set_fields( new_atom_obj('Feed'),
   title => set_fields( new_atom_obj('Text', Name => 'title'), type => 'text', body => $feed_title ),
   link  => set_fields( new_atom_obj('Link'), href => $feed_content_url ),
);

while (...) {
   my $entry_title       = ...;
   my $entry_content_url = ...;
   my $entry_pub_dt      = ...;
   my $entry_body        = ...;

   $feed->add_entry(
      set_fields( new_atom_obj('Entry'),
         title     => set_fields( new_atom_obj('Text', Name => 'title'), type => 'text', body => $entry_title ),
         link      => set_fields( new_atom_obj('Link', Name => 'link'), href => $entry_content_url ),
         published => $atom_dt_format->format_datetime($entry_pub_dt),
         content   => set_fields( new_atom_obj('Content'), type => 'html', body => $entry_body),
      ),
   );
}

$feed->updated($atom_dt_format->format_datetime($feed_last_updated));

return $feed->as_xml();