C:\Documents and Settings\antony\Desktop>perl -e "sub { @_ = sub {@_}->(@_); for
k ? die 5 : die 6 }->(2)"
5 at -e line 1.
6 at -e line 1.