Linux系统的轻量化Perl版本netstat

netstat是一个在Linux系统上常用的网络工具，用于显示网络连接、路由表和网络接口信息。在本文中，我们将介绍一个精简版的netstat工具，使用Perl语言编写，实现类似功能的网络信息显示。

下面是一个示例的Perl脚本，实现了类似netstat的功能：

#!/usr/bin/perl

use strict;
use warnings;

# 执行netstat命令获取网络连接信息
my @output = `netstat -tunap`;

# 打印表头
print "Proto\t