[perl #130251] [LTA] error message when a semicolon is missing before a while loop (my $x = 5 while True {})

[via RT]

# New Ticket Created by  Aleks-Daniel Jakimenko-Aleksejev 
# Please include the string:  [perl #130251]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=130251 >


Code:
my $x = 5

while True {
}

Result:
===SORRY!=== Error while compiling -e
Unexpected block in infix position (missing statement control word before the 
expression?)
at -e:3
------> while True⏏ {
    expecting any of:
        infix
        infix stopper


So it is parsed as a statement modifier, that's fine, but the problem is that 
the error message is way off whet it trips over a block. “Did you forget a 
semicolon on the previous line?” would be a good addition, but we'd need some 
heuristic for that.