RosettaCodeData/Task/Boolean-values/Perl/boolean-values-2.pl

my $x = 1;          # true

my $true_or_false;

if ($x) {
    $true_or_false = 'true';
}
else {
    $true_or_false = 'false';
}