Help on writing Script.

Can any one help me to writing perl script on this issue.
when we pass command on prompt # nslookup  www.wellho.net

it shows :

Server:  utilits.xxx.xxx (Your Server hostname)
Address:  121.172.131.79(client machine Ip address)

Name:    www.wellho.net (Lookup website name)
Address:  83.170.95.163(server Ip address)

we have bulk IP address of this kind.

So our requirements, its should print on Text File like  this format:

Server Ip IP ADDRESS                         Lookup website name
83.170.95.163                                         www.wellho.net

i written perl script. so attaching plz have look and

$x="C:/perlfile/sami1.txt"
open (DAT,$x)||die "unable to open file";
@raw_data=<DAT>;
close(DAT);
foreach $wrestler (@raw_data)
{
chomp($wrestler);
print `nslookup  $wrestler `;
 }

can any one help me out on this issue.

Thanks
Sam

How about this?

Code:

@raw_data = <DATA>; foreach (@raw_data) {        /Name:\s+(.*)/ and $name = $1;        /Address:\s+(.*)/ and $address = $1;        } print ("$address $name\n"); __END__ Server:         62.31.176.39 Address:        62.31.176.39#53 Non-authoritative answer: Name:   www.wellho.net Address: 83.170.95.163

Working example - I have included the data with the program so you can try it out.

Code:

earth-wind-and-fire:~ grahamellis$ perl dibble 83.170.95.163 www.wellho.net earth-wind-and-fire:~ grahamellis$

---