sub blah($) { print "blah\n" }

sub blah($$) { print "blah\n" }

##</code><code>##

Prototype mismatch: sub main::blah ($) vs ($$) at test.pl line 3.