Select Code to Download

#! perl -slw
use strict;
...
fred=SCALAR(0x2a7c20)
=cut

$newref = \ 'fred';
print $newref;;
...
=comment Prints
SCALAR(0x2c7d70)
=cut