$ perl -MO=Deparse -e 'my $c; 1 ? $c : my $d; $d'
my $c;
$c;
$d;
-e syntax OK