I really missed the closures.Thanks for your remind.I heard the concept of closures before,but I could't find the usage of it in perl , so i did't understand it very much . I think this a good example for me.Thanks ruoso.