Select Code to Download

$val = *x;
print "@{ *{ $val } }";

print $val;

--output:--
*main::x

$what = *x;
print $what, "\n";
...

*main::x
GLOB(0x10082ad88)

$fh = *STDOUT;

...

--output:--
hello

$STDOUT = 10;
$fh = *STDOUT;
...

--output:--
2