#!/usr/bin/perl -w
# A portion of
# Manifesto:: The Mad Farmer Liberation Front
# by Wendell Berry
use strict;
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;
mkmcconn
(Not exactly my view at points, but I can't help admiring the statement).