Select Code to Download

  #!C:/Perl/bin/perl.exe -w 

...
  }
 
  close(FILE);

<?xml version="1.0"?>
<catalog>
...
      of the world.</description>
   </book>
   </catalog>