#!/usr/contrib/bin/perl -w

$portnum=$ARGV[0];

@netstat=`netstat -an`;

@foundlines = grep /^\d+.\d+.\d+.\d+.$portnum/, @netstat;
foreach $port(@foundlines){
   if ( $port =~ /(\d+.\d+.\d+.\d+.$portnum) (\d+.\d+.\d+.\d+.\d+)\s+\d+\s+\d\s+\d+\s+\d\s+(\w+)$/){
      if ($3 ne "LISTEN" or $port ne "ESTABLISHED" ){
         print "$1 $3\n";
      }else{
         print "ok";
      }
   }
}