some automated scripts writen in perl