#!/usr/bin/perl
our
$VERSION
= 0.001_000;
my
number
$foo
= 9_123.456_789;
my
string
$bar
=
'howdy'
;
my
integer
$bat
=
$foo
|| & 22;
my
integer
$baz
= 9_123.456_789 ||
$foo
;
my
integer
$bax
= 33 || 0;
print
'have $foo = '
,
$foo
,
"\n"
;
print
'have $bar = '
,
$bar
,
"\n"
;
print
'have $bat = '
,
$bat
,
"\n"
;
print
'have $baz = '
,
$baz
,
"\n"
;
print
'have $bax = '
,
$bax
,
"\n"
;
$bat
=
$bar
||
q{}
;
$baz
=
'444'
||
'222'
;
$bax
=
'33'
||
$bar
;
print
'have $bat = '
,
$bat
,
"\n"
;
print
'have $baz = '
,
$baz
,
"\n"
;
print
'have $bax = '
,
$bax
,
"\n"
;