my $getdata = `/usr/bin/nslookup www.perlmonks.com`;

##</code><code>##

my $getdata = system("/usr/bin/nslookup www.perlmonks.com");

##</code><code>##

use Socket;
my $ip = gethostbyname("www.perlmonks.com");