#!/usr/local/apps/perl/bin/perl
#############################################################################
#                                                                           #
#  WHO:    John L. Moreland                                                 #
#                                                                           #
#  WHAT:   wrap                                                             #
#                                                                           #
#  WHY:    Demonstrates the use of the Text::Wrap library module.           #
#                                                                           #
#  WHERE:  Opus Software                                                    #
#                                                                           #
#  WHEN:   Thu Oct  8 19:44:51 PDT 1998                                     #
#                                                                           #
#  HOW:    PERL                                                             #
#                                                                           #
#############################################################################

use Text::Wrap;

$Text::Wrap::columns = 20;
$pre1 = "> \t";
$pre2 = "> ";

print wrap( $pre1, $pre2, "Hello, world, it's a nice day, isn't it?\n" );