#!/usr/bin/perl

use strict;
use Text::Autoformat;


undef $/;

my $text = <>;
print autoformat($text, {left=>20, right=>60});