$ perl -wle'
if (1) {
  my $fh = "foo";
}
else {
  my $fh = "bar";
}
print $fh'
Name "main::fh" used only once: possible typo at -e line 8.
Use of uninitialized value in print at -e line 8.