my practice code   of  book   <<wick cool perll scripts>>