Select Code to Download

ok($this eq $that, $test_name);

$ perl -e '%h = (1, 1, 1, 1); print scalar keys %h, "\n"'
1

$ perl -e 'print scalar (1, "a"), "\n";'
a