Select Code to Download

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

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