101 reputation
2
bio website
location saint louis, mo
age
visits member for 2 years, 2 months
seen Oct 3 '14 at 14:53

no one looks at profiles... but whatever.

#!/usr/bin/perl 

package me; 
# brave new world - huxley
# Was and will make me ill. 
# i take a gramme and only am. 

sub exist {
   my $class = shift; 
   bless {'am'=>'kim'}, $class;     
}

sub think {
   my ($self,$thought) = @_;
   $self->{'am'} = 'ill'; 
}

sub take {
   my ($self,$something) = @_;
   $self->{'am'} = undef 
      if ($something =~ /gram(me)?(s)?/i);
}

sub am {
  my $self = shift; 
   print $self->{'am'} 
         if defined $self->{'am'}; 
   print "\n";
} 

my $i = me->exist();  
   $i->think('was');  
   $i->am(); 
   $i->think('will');  
   $i->am(); 
   $i->take('gramme');
   $i->am(); # now nothing

What goes on in your mind?
I think that I am falling down
What goes on in your mind?
I think that I am upside down

Let it be good, do what you should
You know it'll work alright
Let it be good, do what you should
You know it'll be alright

I'm goin up, I'm goin down
I'm gonna fly from side to side
See the bells up in the sky
Somebody's cut the string in two

Let it be good, do what you should
You know it'll work alright
Let it be good, do what you should
You know it'll be alright

One minute one, one minute two
One minute up and one minute down
What goes on in your mind?
I think that I am falling down

Let it be good, do what you should
You know it'll work alright
Let it be good, do what you should
You know it'll be alright

101 Reputation

100 Nov 29 '12
+100 17:47 assoc