use 5.006_001;

sub AUTOLOAD : lvalue {
  *{ $AUTOLOAD }
}
 
&add = sub { shift() + shift() };
print add(17, 25), "\n";