it is not working

That's not a very detailed description of the problem. It really doesn't give us much to go on. You should explain what unexpected behaviour you see. Does nothing happen? Do you see an error message? Does your computer burst into flames?

As has already been pointed out, it looks like you're trying to read from a filehandle that is only open for writing. If you had use warnings in your code then Perl would tell you about this problem. I don't understand why people try to write code without asking Perl for all the help it can give.