diff --git a/misc/perl5_parser/perl5_parser.pl b/misc/perl5_parser/perl5_parser.pl
index ef286524e..83c65a491 100644
--- a/misc/perl5_parser/perl5_parser.pl
+++ b/misc/perl5_parser/perl5_parser.pl
@@ -150,6 +150,7 @@
 my $FUNCTION_CALL_BLOCK_ARGUMENT = sub {    # argument is a block
     my ( $tokens, $index, $name ) = @_;
     my $pos   = $index;
+    # XXX TODO do ( { print 123 } )
     my $block = parse_statement_block( $tokens, $pos );
     return { type => 'APPLY_BLOCK', value => { name => $name, block => $block }, next => $block->{next} };
 };