Select Code to Download

  our $fred = 78 ;
  local $fred = $fred ? "Still $fred" : 'undef' ;

  $fred = 78 ;
  $fred = d($fred) + $fred ;

  sub d { $_[0] = 10 ; return 1 ; } ;