https://www.manu.co.in/how-to-compress-a-file-in-perl/