open(F,'-|',"tar czf - $dir") or die ...