Select Code to Download

  use strict ;
  use warnings ;
...
    print "$i: $main::i\n" ;  # 7: hello there 
  } ;                         # 8: hello there
  print "$i: $main::i\n" ;    # *: hello there