perl -e '&{die("ONE")}(die("TWO"))'
perl -e 'die("ONE")->(die("TWO"))'