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