lossyless compression of png perl script