use Text::Wrap qw(wrap $columns $huge);

$columns = 40;
$huge = 'wrap';
print wrap;