my $lines = qx( netstat -a );