use XML::Atom::Feed;
use XML::Atom::Entry;
    
my $xml_url = 'http://ax.itunes.apple.com/WebObjects/MZStoreServices.woa/ws/RSS/topsongs/sf=143441/limit=100/explicit=true/xml';
my $feed = XML::Atom::Feed->new($xml_url);

$test = "im:name";

foreach my $entry ($feed->entries()) {
   my $title = $entry->title();
   my $name = $entry->$test();
   
   print "$title $name\n";
}