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

##</code><code>##

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