Select Code to Download

#! /usr/bin/perl

...
ok  same(\$x, \$x), 'ref x is ref x';
ok !same($x, $y),   'x not y';
ok  same($x, $z),   'x is z';