my $tmpfile = rand();
system("netstat > $tmpfile");
open(MYIN, "$tmpfile");
@connectInfo = <MYIN>;
close(MYIN);
unlink($tmpfile);

# The following codes work on @connectInfo