use strict;
use warnings;

xmas(4);

sub xmas #(Anzahl der Ebenen)
  {
  # ASCII-Weihnachtsbaum mit Kugeln
  my $order = shift;
  my $top = $order + 1;
  my $ornament;
  my $leading_spaces = int($order * $top / 2) + 1;
  my $middle_spaces = 0;
  # Baum ausgeben, Schleife fuer die Hoehe
  for my $height (0..$order)
    {
    # Die Aeste ausgeben
    for my $width (0..$height)
      {
      # Aeste verzieren (nur oben)
      $ornament = $height && !$width; 
      if ($width)
        { $middle_spaces = $middle_spaces + 2; }
      print ' ' x $leading_spaces;
      if ($ornament)
        { print '*'; }
      else
        { $leading_spaces--; }
      print '/', ' ' x $middle_spaces, '\\';
      if ($ornament)
        { print '*'; }
      print "\n";
      }
    }
  print '/', '-' x ($middle_spaces + 2), "\\\n";
  print ' ' x ($middle_spaces / 2), "|  |\n";
  print ' ' x ($middle_spaces / 2), "|__|\n";
  }