[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[FWP] A Perl Poem



St.Valentin's day... Beside Chrismas, the best time of the
year to be all cute and cheesy.  So I guess it's the perfect 
time to unleash this "white perl" (as in, the inverse of the 
infamous black perl poem) of mine.  It's not complex or 
incredibly witty, but I find it amusing. :)

Joy,
Yanick


#!/usr/bin/perl
#  satori.pl v1.0 (31/7/2000)  A Perl poem 

$\ = "\n"; *LIGHT=*STDOUT;

%accept = %salvation = ( hate    => 'love'      , 
                         greed   => 'frugality' ,
                         anger   => 'acceptance', 
                         fear    => 'certainity',
                         despair => 'hope'     );
 
$now = # is the time
       '           '; 

$no_more = '1ies';
 
# I want to be 
               $free = not $chained;

sleep $no_more;  time, 2, $awake;  

kill $doubt;
reverse $thinking;
 
my @soul = keys %salvation;
 
foreach $fear ( @soul ) 
{
    print "I knew $fear";
 
    push @out and push @away until $free;

    print "$now I know$I_must $accept{ $fear }";
}

study $life;
tell TRUTH ;# do not lie to yourself
accept GOOD, BAD;

delete $soul{ sin };
 
not $let_go or exit or die;

# Turn my back to death and the
    crypt's hollow comfort', 'it is too soon';
 
select LIGHT;
close  PAST;
open   EYES, 'and see';

bless $life={};

seek HAPPINESS,
     abs$olution,
     $peace;

untie $myself;

join 'back', 'humanity';

print;
print 'I am alive, I am free. Hear me roar, for I am ',` whoami`;

# This is where things
  END{}

# This is where things
  BEGIN{

# It is time to 
  return $home; }

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe