my $status;
eval '$status = 3+4; 1' or warn $@||"unknown error";