use Test::Chunks tests => 1;

is(next_chunk->perl, <<'...');
You are a foo!
You are 1 2.
...

__DATA__
===
--- perl eval_stdout
print "You are a foo!\n";
my $foo = 2;
print "You are 1 $foo.\n";
return 42;
