Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Mad Farmer

by mkmcconn (Chaplain)
on Jan 02, 2002 at 04:57 UTC ( #135586=poem: print w/replies, xml ) Need Help??

#!/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).

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://135586]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2023-02-06 13:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (34 votes). Check out past polls.

    Notices?