Perl, JAVA monitor
 

Does anyone knows how to make a TCP monitor with Perl or JAVA? Other languages are good as well...
It should print all incoming and outgoing connections, remote IP and port.

Thanks in advance,

Brainpower

I know it's possible with PHP's unix socket functions.