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

my $life  = "Moment in time\n";
my $age   = 25;
my $death = 100;

do { print $life; $age++;} until $age == $death;
[download]