Extract xml data using perl language

I am trying to write a perl script to extract data from xml file (with and without using perl modules).
Your suggestion would be appreciated.
Thanks