My Perl Quiz

The ultimate place to learn Perl!

Question #13: What gets printed by the following program?

my ($x) = foo();
print "$x\n";

sub foo {
  return wantarray ? 'list context' : 'scalar context';
}