package HEAD;
  my @neighbors;

  use constant PROFIT => $$++;

  sub love{ 
            my $made       = time;
            my $invest     =  @_ ;

            #Love the quick profit, 
            my $income     =  $invest + PROFIT;          

            #the annual raise
            $income        += ($income * (.06/365));      

            #vacation with pay. 
            $income        += $income  while not $invest;  

            #Want more 
            #of everything ready-made.
            return $income if time > $made;

            #Be afraid 
            #to know your neighbors and to die.
            @neighbors = (undef,undef,undef) || @neighbors ;
            ($income)  = $income || @neighbors || die;
  }

  #And you will have a window in your head. 

package THEY;
  my $drawer = [];

  $THEY::call         = study HEAD::PROFIT;

  #Not even your future will be a mystery 
  #any more. Your mind will be punched in a card 
  #and shut away in a little drawer.
  use constant BUY    => HEAD::love(HEAD::PROFIT);

  #When they want you to buy something 
  #they will call you. When they want you 
  #to die for profit they will let you know. 
  push @$drawer,BUY if $THEY::call || { tell => die };

  #So, friends, every day do something 
  #that won't compute...

package ADVICE;
  push @$drawer, ('love the Lord',
                  'love the world',
                  'work for nothing');

  #...Take all that you have and be poor. 
  my $poor      = shift @$drawer;

  #Love someone who does not deserve it. 
  my ($deserving,$undeserving);
  $undeserving  = $deserving = $drawer;

  @neighbors    = ($deserving,$undeserving);
  push @$drawer => @neighbors;

  #Denounce the government and embrace 
  #the flag. Hope to live in ...
  my $flag = &{ sub{ return my $government || 
  '...that free republic for which it stands'}};
  unshift @$drawer, $flag;

  #Give your approval 
  sub new{ bless({},\''); '';}
  #to all you cannot understand. 

  # Praise ignorance, 
  unshift @$drawer,ADVICE->new('mystery');

  #for what man 
  #has not encountered he has not destroyed. 
  unlink $0 if $drawer->[0];

  #+++++++++++++++++++
  use Data::Dumper;
  print Dumper $_ foreach @$drawer;
[download]

mkmcconn
(Not exactly my view at points, but I can't help admiring the statement).