Help for this page

Select Code to Download

Select or download this

 
{ 
  push @stack,$scalar;
...
 
  $scalar=shift @stack;
}

Select or download this

package NewStdScalar;
require Tie::Scalar;
...
}
   
print $scalar;             # 1