Select Code to Download

$ cat pm_1231805_to_hash.pl
#!/usr/bin/perl -w
...
                         'first_name' => 'Joe'
                       }
}

#!/usr/bin/perl -w
use warnings;
...
};
$xmlDoc->fromHash($data);
print $xmlDoc->toString();