my $webserver = My::WebServers->retrieve($id);
my $version = $webserver->version;
my $ip = $webserver->host->IPAddress;
my @mailservers_on_this_host = $webserver->host->mailservers;
my @hosts_with_webservers = map { $_->host } My::WebServer->retrieve_all;
my @same thing = grep { $_->webservers } My::Hosts->retrieve_all;
# ...