Select Code to Download

My xml file looks like this:
========company.xml=======
...
    <product>product 2</product>
</group>
</company>

========company.pl========
#!/bin/perl -w
...
   print "\nGroup Name: ",$my_group->first_child("product")->text;
}
================