mas962 : computers and graphics workshop
3b: type ... october 26, 2003 ... a perl poem
home

 

open (PERL, "perl of death") || die "perl die $!";
print "die perl die\n\n";
while (<PERL>) {
$PERL++;
chomp;

($die, $perl, $you, $hurt) - split (/:/);
if ($die =~ /oyster$/) {
print "$life \n";
}
if ($sea > 44) {
$life_44++;
$live += $live;
if ($you < 1) {
$live {$sea)> = $salt;
}
}
}

if ($salt > 0) {
if ($cry > 0) {
}
}

print "perl hertz\n";
print "like a dead oyster\n";
print "slimy slippery\n";
print "gasping a last breath\n";
print "foe of the salty sea\n";
print "foe of the sea of life\n";
print "perl perl of death\n";