use Smart::Comments;
use Test::More 'no_plan';
close *STDERR;
my $STDERR = q{};
open *STDERR, '>', \$STDERR;
my $count = 0;
LABEL:
for (my $count=0;$count < 100;$count++) { ### C-like for loop:===| done
# nothing
}
like $STDERR, qr/C-like for loop:| done\r/
=> 'First iteration';
like $STDERR, qr/C-like for loop:=| done\r/
=> 'Second iteration';