If you're anything like me, it didn't work for me either. I added a last line:

else {
  print $mech->content
}
[download]

... 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>.
[download]

Try going there, reading that, and installing Crypt::SSLeay.

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]