#!/usr/bin/perl

use strict;

my $node = qx( nslookup www.perlmonks.org | 
               awk -F Name: '{ print \$2 }' );
print $node;