Select Code to Download

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE eggsmell [
...
                  <ugly_info>7.5</ugly_info>
               </ugly>
            </bar>

            <bar>
               <bar_number>1</bar_number>
...
   </things>
</eggsmell>

#!/usr/bin/perl

...
   # the database.
   
}

my @unique_ids = (23456, 23458);
my $xml_source_key = XMLin($xml_file, forcearray => 
...
      # Do something with $bar_number, $good_info and a database
   }
}