>>> true
 
true
 
>>> "stringification: " + (1==1)
 
"stringification: true"
##</code><code>##

use v5.10.0;
use boolean;
 
say true;
say "stringification:" . (1==1);

##</code><code>##

/usr/bin/perl -w /tmp/boolean.pl 
1
stringification:1

##</code><code>##

use Scalar::Util qw/dualvar/;
 
my $false = dualvar 0, "false";
my $true = dualvar 1, "true";
 
say $true;
say "stringification:" . $true;
say "numification: " . (0+$true);
 
say $false;
say "stringification: " . $false;
say "numification: " . (0+$false);