Check your post http://bytes.com/topic/perl/answers/...le#post3482701