GD module for Perl with fixed test