sub f(Block $b) {
  say $b.perl;
}

f -> "bar" {
  say "baz";
}