#!/usr/bin/perl -w
#Text wrapping snippet
use Text::Format;

$text = new Text::Format;
$text->columns(65);
print $text->format("Hello" x 190);