The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# #!/usr/bin/pugs

# Checking that testing is sane: if

use v6-pugs;

say '1..2';

my $x = '0';

if ($x eq $x) { say 'ok 1' } else { say 'not ok 1' }
if ($x ne $x) { say 'not ok 2' } else { say 'ok 2' }