#!/path/to/perl
my $X = \$X; 
printf STDOUT "Starting with VAR %lx and REF %lx \n",
                $X, \$X;
if ($X == \$X) {
        printf STDOUT "uh oh, they are deemed equal\n";
} else {
        printf STDOUT "ah, good, they are observed to differ\n"; 
}
# end