Using perl and GD lib for png