perl poem

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";