#!/usr/bin/perl

format =
	I travel'd thro' a Land of Men,
		A Land of Men & Women too,
	And heard & saw such dreadful things
.

write();


#A named formatthat prints out to the screen....


format FORMATNAME =
	As cold earth wanderers never know
.

select(STDOUT);
$~ = "FORMATNAME"; 
write FORMATNAME;