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