sub Test {
	my ($X,$Y) = @_;
	
	return "Hello $X and $Y\n";
}

print "With &\n";
print &Test('name 1','name 2');
print "Without &\n";
print Test('name 1','name 2');
print "Without brackets\n";
print Test 'name 1','name 2';