Your script works for me as often as following the like works for me in a browser.

I'd suggest that you try to get some more information about what's going on. Instead of just die-ing after a failure, you might try printing out $mech->status and/or $mech->content to see if that sheds any light on what's going on.

Sorry I can't be of more help.

Linda