#!/tools/bin/perl -w
greet('world');
sub greet ($) { print "Hello $_[0]!\n"; }

##</code><code>##

main::greet() called too early to check prototype at .//cte line 2.
Hello world!