perl -wE 'sub fn{ return 3 and die("bury me where this arrow lands") } say fn'