Modified perl scripts