Hehe, on my intranet, one of my coders came up with an error message for the last else statement. I pestered him because I don't like die. Bascically it goes like this:

if ($action eq 'dothis') {
    $html = &DoThis(blah);
} elsif ($action eq 'dothat') {
    $html = &DoThat('blah blah');
# ... 14 options later ...
} else {
    $html = Errors(qq{
        I hate John. That bastard is so fucking picky
        he won't let us get away with a simple "die".
        If you got this message, don't be comming to me!
        Its his shitty idea so bring it up with him!
    });
}
[download]

How's that for an error message? Oh, and yeah... I let him keep the message as is.

#!/home/bbq/bin/perl
# Trust no1!