$hostname = `hostname`;
print "hostname is $hostname\n";

##</code><code>##

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