Select Code to Download

( defined($p) ? '1' . $p  : 0 ) eq ( defined($q) ? '1' . $q  : 0 )

use strict;
use warnings;
...
              ) ? 'true' : 'false';
    print join(" eq ", @$_), " = $cmp\n";
}

undef eq undef = true
undef eq empty = false
...
empty eq empty = true
empty eq string = false
string eq string = true