let fqdn () = (Unix.gethostbyname (Unix.gethostname ())).Unix.h_name