host=$(ifconfig | perl -e ' while (<>) { $_ =~ /inet addr:(10.[\d.]+)/; $host = `nslookup $1`; }; $host =~ /name = ([\S]+)./; print $1;')