With Extended Tcl you can safely do stuff like:

        set infp [open "|compress -dc $fileName"]
        set outfp [open "|gzip -c $newFileName" w]

        copyfile $infp $outfp

Thanks to karl@NeoSoft.com (Karl Lehenbauer) for the code example.