#!/usr/bin/perl -w

use strict;

foreach (`netstat -an`) {
	print "Service: ", getservbyport($1,"tcp")||$1, " is listening\n"  if (/\*\.(\d+).+LISTEN/);
};