#! /usr/bin/perl 
&say("hello", "world");
&say("goodbye", "cruel world");
sub say {
	print "$_[0], $_[1]!\n";
}