#!/use/bin/perl

use strict;

print "Domain? ";
my $domain = <STDIN>;
chop($domain);

Use Net::SSH qw(issh);

my $user= "<USERNAME>";
my $host= "<HOSTNAME>";
my $cmd="dig +short $domain";

issh("$user\@$host", "$cmd");