#!/usr/bin/perl
use diagnostics;
use strict;
use warnings;

my ($zahl1, $zahl2) = (8,9);

my $ergebnis = 0;
my $zahl1teiler;
my $zahl2teiler;

do {
     ++$ergebnis;
     $zahl1teiler = $ergebnis / $zahl1;
     $zahl2teiler = $ergebnis / $zahl2;
} until ($zahl1teiler == int($zahl1teiler) and
          $zahl2teiler == int($zahl2teiler)   );


print "Das kleinste gemeinsame Vielfache ist: $ergebnis\n"