Select Code to Download

use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
...
        print OUT $response->content();
        close OUT;
}

$mech->get($url, ":content_file" => "filename.here");