Perl error messages - what a shame!

if (&foo($line)) {
# stuff
} elsif (&bar($line)) {
# more staff
}

bar() function name was misspelled. The error pointed me at the line number where foo() was invoked. I can see how it's "reasonable", but only for a very small values of "reasonable".