Select Code to Download

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

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