I don't know what 'PS' is, but your code has some errors. XML::Simple has a 'strict mode' that can help you debug your code. Try this:

use strict;
use warnings;
use XML::Simple qw(:strict);
[download]