sub outer {
	my $x = shift;

	sub inner {
		return $x;
	}
}