my $sek=8*9/ggT(8,9);

print "Sie treffen sich nach $sek Sekunden wieder\n";

sub ggT
{
my ($flip,$flop)=@_;
($flip,$flop)=($flop,$flip) if $flip<$flop;
while(1)
{
$flip %= $flop;
($flip,$flop)=($flop,$flip) if $flip<$flop;
last if $flop==0;
}
return $flip;
}