$ perl -le " q/warn/->( 6,6 ) "
Undefined subroutine &main::warn called at -e line 1.

$ perl -le " sub warn { die @_ }  q/warn/->( 6,6 ) "
66 at -e line 1.