#!/usr/bin/perl
use strict;
use Net::Rendezvous;

my $services = Net::Rendezvous->enumerate_services;

print "Services found: \n";
for my $service ($services->entries) {
    printf "  %s/%s\t%s\n", $service->name, $service->protocol, $service->fqdn;
}

Services found:
  ssh/tcp       _ssh._tcp.local
  http/tcp      _http._tcp.local
  netbios-ns/udp        _netbios-ns._udp.local
  netbios-ssn/tcp       _netbios-ssn._tcp.local
  afpovertcp	_afpovertcp._tcp.local
  x11/tcp       _x11._tcp.local