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