perl IO-Compress