#!/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]