Help for this page

Select Code to Download

Select or download this

<?xml version="1.0" encoding="UTF-8"?>
<Header>
...
    <Main id="4" name="Item5">
    </Main>
</Header>

Select or download this

use Win32::OLE qw(in with);

...
   my $main_name = $main->Attributes->getNamedItem("name")->Text;
   print "$main_id,$main_name\n";
}