use Test::Base tests => 1;

is next_block->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;