Help for this page
system("netstat -an | grep $port");
print qx{netstat -an | grep $port};
print grep /$port/, qx{netstat -an};