This Perl script is not my work, license unknown