#!/usr/bin/perl

use strict;
use warnings;

use Text::ASCIITable;

my $table = Text::ASCIITable->new
    ({headingText => 'Regentage pro Jahr'});

# Spalten-Ueberschriften und -Ausrichtungen
$table->setCols('Jahr', 'Tage', 'Bemerkung');
$table->alignCol(Tage => 'right');
$table->setColWidth(Bemerkung => 45);

# Daten eintragen
$table->addRow(2008, 5,
  'Ein super Jahr - fast schon zu trocken.');
$table->addRow(2007, 20,
  'Sehr schoenes Wetter, nur wenig Regentage.');
$table->addRow(2006, 65,
  'Jede Woche ein Regentag, und noch mehr Text,'.
  ' damit ein Umbruch stattfindet.');
$table->addRowLine;
$table->addRow('', 30, 'Durchschnitt');

print $table;