#!/usr/bin/perl
use Text::Wrap;
$Text::Wrap::columns = 100;
@modules = `lsmod`;
print Text::Wrap::fill( '', '', @modules );

##</code><code>##

ip_tables 9688 3 iptable_mangle,iptable_nat,iptable_filter

x_tables 8964 17
xt_CONNMARK,xt_length,xt_tcpudp,ipt_dscp,ipt_ipp2p,xt_connmark,ipt_multiport,xt_state,ipt_TOS,xt_CL
ASSIFY,ipt_ACCOUNT,ipt_MASQUERADE,ipt_REDIRECT,ipt_REJECT,ipt_LOG,iptable_nat,ip_tables

sch_htb 14464 0

sch_sfq 4992 0

ppp_async 8192 0

crc_ccitt 2048 1 ppp_async

ppp_synctty 6912 0

ppp_generic 21140 2 ppp_async,ppp_synctty


##</code><code>##

ip_tables               9688  3 iptable_mangle,iptable_nat,iptable_filter
x_tables                8964  17 xt_CONNMARK,xt_length,xt_tcpudp,ipt_dscp,ipt_ipp2p,xt_connmark,ipt_multiport,xt_state,ipt_TOS,xt_CLASSIFY,ipt_ACCOUNT,ipt_MASQUERADE,ipt_REDIRECT,ipt_REJECT,ipt_LOG,iptable_nat,ip_tables
sch_htb                14464  0
sch_sfq                 4992  0
ppp_async               8192  0
crc_ccitt               2048  1 ppp_async
ppp_synctty             6912  0
ppp_generic            21140  2 ppp_async,ppp_synctty