Select Code to Download

> perl -MO=Deparse,-q
use warnings;
...
my(%a, %b, $c);
my $x = $a{'foo'} . ' ' . $b{'bar'} . ' ' . $c;
- syntax OK

lanx@nc10-ubuntu:~$ perl -w -MO=Concise
my (%a,%b,$c);
...
k              <0> padsv[$c:1,3] s ->l                        <-------
m        <0> padsv[$x:2,3] sRM*/LVINTRO ->n
- syntax OK

>  perl -w 
my (%a, %b, $c);  
...
__END__
Use of uninitialized value in concatenation (.) or string at - line 3.
Use of uninitialized value $c in concatenation (.) or string at - line
+ 3.