$ perl -e 'sub trim {} sub trim($) {}'
Prototype mismatch: sub main::trim: none vs ($) at -e line 1.