use strict; use warnings; my $c = 0; while ( warn("x"), ++$c<2 ) { my $dummy; } #### x at a.pl line 5. x at a.pl line 6.