in reply to Visualisation of environment

Try Text::Table and family (see AoAoA to Text (or HTML table to text) for example).

update: Forget Text::Table, Text::ASCIITable is better

use strict; use warnings; use Text::ASCIITable; my $t = Text::ASCIITable::->new; $t->setCols('Nickname','Name'); $t->addRow('Lunatic-|','Håkon Nessjøen'); $t->addRow('tesepe','William Viker'); $t->addRow('espen','Espen Ursin-Holm'); $t->addRow('mamikk','Martin Mikkelsen'); $t->addRow('p33r','Espen A. Jütte'); $t->addRow(' ',' '); $t->addRow( wishlist => ' #overload to accept #push @$t, [ ( "poncho\nvilla" ) x 2 ]; # would be sweeet '); $t->addRow(' ',' '); my $p = Text::ASCIITable::->new; $p->setCols(split'','ponchovilla'); $p->addRow(split'',reverse 'ponchovilla'); $p->addRow(split'','ponchovilla'); $t->addRow( poncho => $p->draw() ); $p = Text::ASCIITable::->new; $p->setCols(qw'a b c'); $p->addRow(qw'you know me'); $t->addRow(' ',' '); $t->addRow( abc => "$p" ); print $t->draw(); __END__ .=----------+----------------------------------------------=. | Nickname | Name | |=----------+----------------------------------------------=| | Lunatic-| | Hskon Nessj°en | | tesepe | William Viker | | espen | Espen Ursin-Holm | | mamikk | Martin Mikkelsen | | p33r | Espen A. Jntte | | | | | wishlist | | | | #overload to accept | | | #push @$t, [ ( "poncho\nvilla" ) x 2 ]; | | | # would be sweeet | | | | | poncho | .=--+---+---+---+---+---+---+---+---+---+--=. | | | | p | o | n | c | h | o | v | i | l | l | a | | | | |=--+---+---+---+---+---+---+---+---+---+--=| | | | | a | l | l | i | v | o | h | c | n | o | p | | | | | p | o | n | c | h | o | v | i | l | l | a | | | | '=--+---+---+---+---+---+---+---+---+---+--=' | | | | | abc | .=----+------+---=. | | | | a | b | c | | | | |=----+------+---=| | | | | you | know | me | | | | '=----+------+---=' | '=----------+----------------------------------------------='

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.