Select Code to Download

use strict;
use warnings;
...
open my $fh, '>', 'mock_html.dat';
print $fh $json_str;
close $fh;

use strict;
use warnings;
...
sub link {
    diag ($_[0]);
}