some tools written in perl