#!/usr/bin/perl -w

use strict;

use Text::Break;

die "Need a file!\n" unless (@ARGV);

my $tb = Text::Break->new(20);

my @arr = <>;
$tb->break(\@arr);