print system("netstat -an | grep $port"), "\n";

That should be

system("netstat -an | grep $port");
[download]

or

print qx{netstat -an | grep $port};
[download]

or

print grep /$port/, qx{netstat -an};
[download]