#!/usr/bin/perl -w

use strict;

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