$ perl; echo $?
$!=42; die "Hello"
__END__
Hello at - line 1.
42