in reply to Seeking defined() for compile time
use Log4perl qw(:nowarn); [download]
perl -e 'print sub { "Hello @{[shift]}!\n" }->("World")' [download]