$source = `ypcat hosts | grep '$hostname$'`;
$source =~ /\d+.\d+.\d+.\d/;
print "source is $addr\n";