$ perl -Mstrict -wle'
if (1) {
  my $fh = "foo";
}
else {
  my $fh = "bar";
}
print $fh'
Global symbol "$fh" requires explicit package name at -e line 8.
Execution of -e aborted due to compilation errors.