#!/bin/sh
PORTS=`nmap localhost|perl -pe '/([0-9]*\/..p)/;$_="$1\n"'`
for PORT in $PORTS;do
	PIDS="$PIDS `fuser $PORT|perl -pe 's/^.*:\s*//'`";
done
for PID in $PIDS;do
	COMMANDS="$COMMANDS `ps l $PID|grep ^[0-9]|perl -pe 's/.*\s(\W+)/$1/'`";
done
echo $COMMANDS|perl -pe 's/\s/\n/g'|sort|uniq