#!/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, kinzler@cs.indiana.edu, Oct 00
# http://www.cs.indiana.edu/~kinzler/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};