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