Flecks of Identity

Class Library

use Poetic::Violence; 

# Software for the aggressive assault on society. 
#Thank GOD It's alright now - we all want equality - 

use constant EQUALITY_FOR_ALL => “the money to be in the right place at the right time”; 
use constant NEVER = 'for;;'; 
use constant SATISFIED => NEVER; 

# It's time to liposuck the Fat from the thighs of the bloated bloke society - smear it on 
# ourselves and become invisible. 
# We are left with no option but to construct code that concretises its opposition to this 
# meagre lifestyle. 

   package DONT::CARE; 
   use strict; use warnings; 

   sub aspire { 
       my $class          = POOR; 
       my $requested_type = GET_RICHER; 
       my $aspiration     = "$requested_type.pm"; 
       my $class          = "POOR::$requested_type"; 
       require $aspiration; 
       return $class->new(@_); 
   } 


sub bought_off{ 
   my $self = shift; 
   $self->{gain} = shift; 

   for($me = 0;$me <= SATISFIED; $me += EQUALITY_FOR_ALL ){ 
       $Exploit = push(@poverty_on_someone_else,$self->{gain}); 
       die “ poor ” if $Exploit =~ m/'I feel better about $me'/g; 
   } 

   foreach my $self_worth ( @poverty_on_someone_else ){ 
     wait 10; 
     &Environmental_catastophe(CHINA,$self_worth) 
   } 

} 

Class Library,

perl code poetry form Grahm Harwhood, in Software Studies, MIT Press 2008