#!/usr/bin/perl my $x = 1; my $y = \$x;my $z = \$y; print "$x\n";print "$y\n";print "$z\n";
Standard input is empty
1 SCALAR(0x8a28870) REF(0x8a288a0)
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!