$ perl5.00503 -e '$cr= sub { warn "( @_ )\n" }; "main"->$cr( "bar" )'
( main bar )