#!/usr/bin/perl -w
use strict;
use Text::Autoformat;
undef $/;
my $text = <>;
print autoformat($text, {left=>20, right=>60, all=>1});