comment on

#!/usr/bin/perl -w
# A portion of 
# Manifesto:: The Mad Farmer Liberation Front
#     by Wendell Berry
use strict;
[download]

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

In reply to Mad Farmer by mkmcconn

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


No such thing as a small change
	PerlMonks