$ perl -e 'my $foo = "bar"; eval { my $foo = "biz" }; print $foo'
bar