#!/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);