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