t/t4018/perl-sub-definition

sub RIGHT {
	my ($n) = @_;
	print "ChangeMe";
}