The file is not there
Of little point is your ire
404 not found

Cheers,
Rich.

sub haiku {
push @haiku, "";
push @haiku, "<nobr>That file you want -</nobr><br><nobr>\nIt might be very useful.</nobr><br><nobr>\nBut now it is gone.</nobr>\n";
push @haiku, "<nobr>Chaos reigns within.</nobr><br><nobr>\nReflect, repent, try again.</nobr><br><nobr>\nOrder shall appear</nobr>\n";
push @haiku, "<nobr>With searching comes loss</nobr><br><nobr>\nand the presence of absence;</nobr><br><nobr>\nthat file was not found</nobr>\n";
push @haiku, "<nobr>Stay the patient course</nobr><br><nobr>\nOf little worth is your ire;</nobr><br><nobr>\nthat file was not found</nobr>\n";
push @haiku, "<nobr>Yesterday it worked,</nobr><br><nobr>\ntoday it is not working;</nobr><br><nobr>\nthe Web is like that.</nobr>\n";
push @haiku, "<nobr>You step into the stream,</nobr><br><nobr>\nbut the water has moved on.</nobr><br><nobr>\nThe page is not here.</nobr>\n";
push @haiku, "<nobr>Having been erased,</nobr><br><nobr>\nthe document you're seeking</nobr><br><nobr>\nmust be retyped</nobr>\n";
push @haiku, "<nobr>Rather than a beep</nobr><br><nobr>\nor a rude error message</nobr><br><nobr>\nthese words: \"File not found\"</nobr>\n";
push @haiku, "<nobr>Linkrot rules the web -</nobr><br><nobr>\nYour bookmark is deluded!</nobr><br><nobr>\n404 not found.</nobr>\n";
$rnd = int((rand(9)) +1);
print $haiku[$rnd]
}

Cheers,
Rich.