$response = mech->get($url);
open(OUT,">$filename");
binmode $filename;
print OUT $response->content;
close OUT;


##</code><code>##

$mech->mirror($url,$filename);