$ perl -e ' eval { warn "xxx" } '
xxx at -e line 1.
$ perl -e ' eval { die "xxx" } '
$