Thanks Roboticus, for your suggestions, but I'm a complete newbie on perl world, someone gave this code that i try to improve. I'm RTFM but it's overwhelming