gistfile1.txt

sub do_a_thing {
	do_first_thing(
		sub {
			my $first = shift;
			do_second_thing(
				sub {
					my $second = shift;
					combine_things( $first, $second );
				}
			)
		}
	);
}