Select Code to Download

sub foo {
  alias $_[0] => my $byRef;
  ...
  $byRef += $result;
}

use strict;
use warnings;
...
}

foo();

 1 = 1
 foo(): 1 = 99

 1 = 1
 foo(): 1 = 1

This is perl, v5.8.0 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
...

Binary build 805 provided by ActiveState Corp. http://www.ActiveState.
+com
Built 18:08:02 Feb  4 2003

sub foo {
  alias $byRef => $_[0];
  ...