Afinando perl scripts