Perl 如何得到重定向后网页源代码?

Perl 如何得到重定向后网页源代码?

LWP::Simple可以得到网页的内容,但是如果url重定向的话,Lwp::Simple就不能处理了,请问perl如何得到重定向后网页源代码?
如果不能自动重定向你就判断返回的代码, 要是什么302, 30x的就自己分析一下结果再get
要看是哪种形式重定向的,如果javascript重定向的,就要分析一下href。