my $subref = do{
  sub : prototype($) ($s) { return $s; };  # Perl thinks sub: is a label here.
};