Select Code to Download

use XML::Parser;
...
...
  # your code goes here
  ...
}

...
use XML::Simple qw(:strict);
...
 
    return $xs;
}