Help for this page

Select Code to Download

Select or download this

$ perl -E 'BEGIN {our $debug = 1;} use if $debug // 0, warnings; say u
+ndef'
Use of uninitialized value in say at -e line 1.

Select or download this

$ debug=1 perl -E 'use if $ENV{debug} // 0, warnings; say undef'
Use of uninitialized value in say at -e line 1.