$ perl -MO=Deparse -e 'while (my $scalar = <$TEST>) {1}'
while (defined(my $scalar = <$TEST>)) {
    do {
        '???'
    };
}
-e syntax OK