11 lines
128 B
Perl
11 lines
128 B
Perl
|
my $x = 1; # true
|
||
|
|
|
||
|
|
my $true_or_false;
|
||
|
|
|
||
|
|
if ($x) {
|
||
|
|
$true_or_false = 'true';
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
$true_or_false = 'false';
|
||
|
|
}
|