>perl -we"sub trim {} sub trim($) {}"
Prototype mismatch: sub main::trim: none vs ($) at -e line 1.
Subroutine trim redefined at -e line 1.