You have posted several times now regards this problem. This post for example, lacks any supporting text (a description of the errors/problems or output resulting from running this script). I think you would benefit from reading How do I post a question effectively? and the PerlMonks FAQ.