http://qs1969.pair.com?node_id=238190 

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

Replies are listed 'Best First'.
Re: Mantra of Reality
by webfiend (Vicar) on Feb 24, 2003 at 20:14 UTC

    .. 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.

[reply]
[d/l]
      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]
[reply]
[d/l]

Back to Perl Poetry