If you're anything like me, it didn't work for me either. I added a last line:
else {
print $mech->content
}
... and got the following output:
LWP will support https URLs if the Crypt::SSLeay module is installed.
More information at <http://www.linpro.no/lwp/libwww-perl/README.SSL>.
Try going there, reading that, and installing Crypt::SSLeay.
--chargrill
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
| [reply]
[d/l]
[select] |
| [reply]
[d/l]
[select] |
