.. And if you're one to go with reincarnation:

#!/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;
}
[download]

I just realized that I was using the same sig for nearly three years.

For those who live life on the edge...


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

my $life  = "Sex, Drugs, & Rock 'n Roll\n";


LIFE: {
  my $age   = 25;
  my $death = 100;
  my $drugs = 5;
  do { print $life; $age += $drugs; } until $age == $death;
  next LIFE;
}
[download]