can you guys post the code. i am new to this community and jus started learning perl. I would appreciate if you can post the code here. thank you.