#!/bin/env perl -w
use strict;

my $cookie="Climb the mountains\nand get their good tidings.\nNature's peace will flow into you\nas sunshine flows into trees.\n";
my $author="-John Muir\n";
$: = "- ";
format STDOUT =
		@|||||||||||||||||||||||||||||||||||||||||||||||||
		"------------------------------------------------"
~~ 	^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
		$cookie
		@||||||||||||||||||||||||||||||||||||||||||||
		$author
		@|||||||||||||||||||||||||||||||||||||||||||||||||
		"------------------------------------------------"
.
write STDOUT;

##</code><code>##

                
        ------------------------------------------------
        Climb the mountains and get their good tidings.
        Nature's peace will flow into you as sunshine
        flows into trees.
                                 -John Muir
        ------------------------------------------------

##</code><code>##

                
        ------------------------------------------------
        Climb the mountains
        and get their good tidings.
        Nature's peace will flow into you
        as sunshine flows into trees.
                                 -John Muir
        ------------------------------------------------