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

$\ = "\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; }