#!/usr/bin/perl

#

#  Haiku

#



no bytes; $in, my $box;

m editate, m eanwhile;

m achine has, $topped;



#!/usr/bin/perl

use strict

#

#  Haiku

#

my $enses, $harpen;

for (I){ study hard and

m editate, $trongly;

}



#!/usr/bin/perl

use strict

#

#  Haiku

#

listen to, my @dvices;

read carefully, $ome, *haikus

and sleep if $erene;



#!/usr/bin/perl

use strict

#

#  Haiku

#

y ou said boo;

my $cripts, $eem, $enseless

and y es, they are;



#!/usr/bin/perl

use strict

#

#  Haiku

#

join "the", (old, monastery);

keys %are_not; use DB; y

(the wise) smiling monks;