Updated
Broken perl code based on outdated/un-maintained CPAN module