my $ans = eval "$acode; tryme(3)";
if (my $err = $@) {
    die "Caught error: $err in code [$acode]";
};