use 5.16.2; my $i = 1; say $i++ while sleep 1;