$ perl6 -e 'sub dead { die "with info" }; dead()'
with info
  in sub dead at -e line 1
  in block <unit> at -e line 1

$ perl6 -e 'sub dead { die "without info\n" }; dead()'
without info

  in sub dead at -e line 1
  in block <unit> at -e line 1

$