#!/usr/bin/perl -wT
use strict;

## [snipped for brevity]

my $resultin = `whois $dom`;