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

my $brains = 1000000000000;

use constant SOMETHING => 1;

my $learned = SOMETHING;
my $persistence = 0;

STUDY:
while( $persistence ){
  $learned = (SOMETHING + $learned);
  print $learned;
}

$persistence && goto STUDY if $brains;
[download]

 # bottom line has to be this:
++$persistence && goto STUDY if $brains;
[download]

mkmcconn