added some working perl scripts