Select Code to Download

$::i       # implicit, 
$main::i   # explicit

#!/usr/bin/perl -w

...
sub two {
  print "$::i\n";
}

#!/usr/bin/perl -w

...
sub two {
  print "$_[0]\n";
}