Your IP : 216.73.216.1

Current Path : /usr/share/doc/perl-Text-Reform/demo/
Upload File :
Current File : //usr/share/doc/perl-Text-Reform/demo/demo_leader1.pl

#! /usr/bin/perl -w

use Text::Reform;

$data = "Now is the winter of our discontent made glorious summer...";

print form
	">>>> [[[[[[[[[[[[[[[[[[[[",
	'Foo:', $data;


print form
	"Foo: <<<<<<<<<<<<<<<<<<<<",
	      $data,
	"     [[[[[[[[[[[[[[[[[[[[",
	      $data;