Select Code to Download

$ perl -MData::Dumper -e 'print Dumper (do { 1 if $_ }) for undef, 0, 
+"0", ""'
$VAR1 = undef;
...
d                             <#> gv[*a] s ->e
g                 <0> unstack v ->h
-e syntax OK