List open TCP ports in linux

[ash]

#!/usr/bin/perl
#< ....o.... [e-mail] ....o.... >#
open(PRTCP,'/proc/net/tcp');while(<PRTCP>){
chomp;next if/^\s*$/;s/^\s*//;s/\s*$//;next
if/^sl/;split/\s+/;@p=split':',$_[1];$h{hex
$p[1]}=$_[7];}foreach(sort{$a<=>$b}keys%h){
print$_,"\t",[getpwuid($h{$_})]->[0],"\n"};

--- Ash <[e-mail]>
'Music is diffrent here, the vibration is different, not like planet Earth.'

[BooK]

Well, this is all nice and useful, but where is the obfuscation?