#!/usr/bin/perl

package School;
package Day;

sub new   {Day};
sub have  {to};
sub goto  {school};
sub hate  {them};
sub am    {Hated};
sub help  {I,cry};
sub wish  {me => luck};

use less 'School'; $,=$";

$i = new Day;

$i->goto(school);

my $teachers = $i->hate();
by, my $peers, $i->am(hated);

$i->wish($i->goto(home) or goto(anywhere but here));

for ($all_time) {
    $i->have(been => here)
    and
    $i->have(been => unhappy);
}

while($i->am(bored)) {
    $time++;
    $discontent++;
    at, last, $i->hear(the bell);
}

$i->goto(home) & $i->have(to => prepare);
for(another, day, in){hell};

print  

$i->am(hated), 
$i->goto(school), 
help(me);