#!/path/to/perl
my $X = \$X; 
my $Y = \$Y; 
if ( \$X == \$Y ) {
        printf STDOUT "disturbing declaration of equality! \n";
        printf STDOUT "Refs: %s \t %s \n", \$X, \$Y;
        printf STDOUT "Vals: %lx \t %lx \n", $X, $Y;
        printf STDOUT "SOps: sum %lx \t dif %lx \n", $X + $Y, $X - $Y;
        printf STDOUT "incs: %lx \t +512=%lx \t +1024=%lx \n", $X, $X + 512, $X + 1024;
} else {
        printf STDOUT "all is quiet and peaceful, \n";
        printf STDOUT "%lx and %lx are recognized to differ by %lx \n",
                \$X, \$Y, \$X - \$Y;
}
# end