Some basic programs in perl