#!/usr/bin/perl -w
use strict;

my $life  = "Moment in time\n";


LIFE: {
  my $age   = 25;
  my $death = 100;
  do { print $life; $age++; } until $age == $death;
  next LIFE;
}