Select Code to Download

use strict;
use warnings;
...
open FILE_OUT , ">output.html" or die "$!";
print FILE_OUT $file;
close FILE_OUT;

$mech->follow_link(text => 'Mail');