ip=`ifconfig | perl -ne ' $_ =~ /inet addr:(10.[\d.]+)/ and print $1`
host=`nslookup $ip | perl -ne '/name = ([\S]+)./; print $1;'`