Select Code to Download

#!/usr/bin/perl -w

...

    return join '  ', $normal_output, $deparse_output;
}

> px 5.12.2 ./constant-folding.pl 
...
noreturn, without parens  1  print 1;
use, with parens          1  print 1;
use, without parens       1  print 1;