$ perl -E 'use v5.40; try { die "x" } catch ($e) { say $e; }'