Select Code to Download

$ perl -le '
> $foo = q{foo};
...
> print ${$bar . q{oo}};'
foo
$

$ perl -Mstrict -wle '
> my $foo = q{foo};
...
>  print ${$bar . q{oo}};'
Can't use string ("foo") as a SCALAR ref while "strict refs" in use at
+ -e line 4.
$

$ perl -Mstrict -wle '
> my $foo = q{foo};
...
> print do {no strict q{refs}; ${$bar . q{oo}} };'
Use of uninitialized value in print at -e line 4.
$

$ perl -Mstrict -wle '
> our $foo = q{foo};
...
> print do {no strict q{refs}; ${$bar . q{oo}} };'
foo
$