Perl Tree

tree.pl

#! /usr/bin/env perl

$my_tree = '#';
$max_length = 70;

for ($i=0; $i <= 20; ++$i) {
    printf "%s%-${max_length}s\n", ' ' x int(($max_length - length $my_tree)/2), $my_tree;
    $my_tree = $my_tree . '##';
}
$my_trunk = substr( $my_tree, 0, 6 );
for ($i=0; $i <= 4; ++$i) {
    printf "%s%-${max_length}s\n", ' ' x int(($max_length - length $my_trunk)/2), $my_trunk;
}