$mech->content() =~ /<meta http-equiv="refresh" content="0;url=([^"]*)
+"/;
my $url = $1;
[download]

Never never never use $1 without having tested the match. If the match fails, you're using a previous $1 from a previous successful match. Oops!