mobile:~# head -n2 /etc/resolv.conf
domain example.org
search intern.example.org example.org
mobile:~# python -c 'import socket; print socket.getfqdn();'
mobile.example.org
mobile:~# hostname -f
mobile.example.org
mobile:~# perl -e 'use Net::Domain qw/ hostfqdn /; print(hostfqdn . "\n");'
mobile.intern.example.org
mobile:~# perl -e 'use Sys::Hostname; print(hostname . "\n");'
mobile