Simple scripts written while learning perl