$i++ and line();

sub line { printf STDERR "now executing line %s\n", (caller)[2] }