http://www.perlmonks.org?node_id=532542

User since: Feb 24, 2006 at 14:05 UTC (18 years ago) Last here: Dec 21, 2017 at 08:42 UTC (6 years ago) Experience: 167 Level: Beadle (5) Writeups: 33 Location: Scotland User's localtime: Apr 26, 2024 at 00:29 UTC Scratchpad: View For this user: Search nodes

use BIO::Short;
use S‎crip‎t::Longhand::blahblah;

my $age = 0;
while($age < 2) {
  be_very_small();
  $age++;
}

while($age < 10) {
  play_football();
  ask_mum_and_dad_for_stuff();
  ignore_girls();
  $age++;
}

while($age < 16) {
  discover_girls();
  pass_exams();
  hate_school();
  $age++;
}

while($age < 19) {
  finish_high_school();
  discover_beer();
  $age++;
}

while($age < 23) {
  university();
  learn_to_code();
  drink_lots();
  have_hangovers();
  $age++;
}

while($age < 100) {
  love_perl();
  use_other_languages();
  drink_not_so_much();
  still_get_bad_hangovers();
  say_during_the_war_a_lot();
  look_disparagingly_at_the_kids_of_today();
  harrumph();
  $age++;
}
[download]