What do you mean by "not working"? Please describe exactly how it "does not work", and what you expect instead.

Have you looked at WWW::Mechanize?