Select Code to Download

#!/usr/local/bin/perl -w    #!/usr/local/bin/perl -w
use strict;                 use strict;             
...
sub investigate {           sub investigate {
  print "\$i=$i\n";           print "\$i=$i\n";    
}                           }

45                         0
45                         1    
...
45                         8    
45                         9    
$i=45                      $i=45

my $i = 45;
for (0..67) {
  my $i = $_;
  ...
}

our $i = 45;
for (0..67) {
  local $i = $_;
  ...