Select Code to Download

<library>
    <category>
...
        </book>
    </category>
</library>

#!/usr/bin/env perl

...

    return $selection;
}

$ pm_1148640_xml_parse.pl
Select a book category:
...
3. Back to Categories
Enter selection: 2
You selected the History book: 'Ancient'