$ perl -MO=Deparse -ne'f()'
LINE: while (defined($_ = <ARGV>)) {
    f();
}
-e syntax OK

$ perl -MO=Deparse -ne'f() }{ g()'
LINE: while (defined($_ = <ARGV>)) {
    f();
}
{
    g();
}
-e syntax OK