Select Code to Download

eval 1/0 # compile-time error

my $d= 0;
eval 1/$d;

my $code;
my $ok= eval sprintf q{
...
    my $err= $@;
    warn "Runtime error on $string: $err";
};