my $timer_1 = timer->new();

while (1)
{
  sleep(1);
  
  if ($timer_1->TON($i > 100,10000))    # vke = $i > 100 = 1
  { print '$i > 100 und Zeit ist abgelaufen'.\n"; }
  else
  { print "Zeit läuft=".int($timer_1->{aktzeit}/1000)."\n"; }  # Zeit läuft noch wenn $i > 100 oder Zeit läuft nicht wenn $i <=100, nur erkennbar ob "aktzeit" = 0 oder "aktzeit" >< 0
}