#!/usr/bin/perl -w
# markus westphal 12.04.2005

use strict;
my ($e1, $e2);
#Loop-Programm  
$e2=0;
for ($e1=1; $e1 <= 10 ; $e1++) {
printf(STDOUT "%2d + %2d = %4d\n ", $e2,$e1,$e1+$e2);
$e2+=$e1;
               }