#!/usr/bin/env perl
use strict;
use warnings;
use CGI ":standard";
use Capture::Tiny "capture_merged";

my $domain = param("s") || "example.org";

my $dig = capture_merged { system "dig", $domain };

print header(),
    escapeHTML($dig);
##</code><code>##

<div id="result" style="white-space:pre"></div>

##</code><code>##

# CGI change
print header(),
    pre(escapeHTML($dig));
# plus JS change
        $("#result").html(res);