#!/usr/bin/perl
BEGIN { unshift @INC, "$ENV{'HOME'}/perl",
		      "$ENV{'HOME'}/libp/perl", "$ENV{'HOME'}/lib/perl" }

# autoformat - smartly automatic text formatting filter
# Steve Kinzler, steve@kinzler.com, Oct 00
# https://kinzler.com/me/home.html#unix

$usage = "usage: $0\n";
die $usage if $ARGV[0] eq '-h';

use Text::Autoformat;

$_ = join('', <>);
print, exit 0 unless /[^\n]/;

print autoformat $_, {all => 1};