my $x = \1;
print $x, "\n";
##</code><code>##


SCALAR(0x1810e50)