Select Code to Download

my $foo = eval {
    my $bar = baz();
...
}
__END__
baz failed!

Can't modify constant item in scalar assignment at (eval 1) line 1, at
+ EOF

sub baz {
    my $result = eval "1 = 2";
    die $@ if $@;
    $result;
}