use strict;
my($zeilen,$z,$s);

print "Wieviele Zeilen? >";
$zeilen = <STDIN>;
chomp($zeilen);
$zeilen = 40 if ($zeilen > 40);

print "Dreieck mit ",$zeilen," Zeilen und ",$zeilen*2," Spalten\n";
foreach $z (1..$zeilen) 
  {
  foreach $s (1..40-$z) 
    { print " "; }
  foreach $s (1..2*$z) 
    { print "X"; }
  print "\n";
  }