Basic perl scripts for beginners