use strict; use warnings; my $c = 0; while ( warn("x"), ++$c<2 ) { my $dummy; }