Simple perl scripts