perl -e "sub { @_ = 3; fork ? die 5 : die 6 }->()"