system("netstat -an | grep $port"); #### print qx{netstat -an | grep $port}; #### print grep /$port/, qx{netstat -an};