eval { confess }; my @stack = split /\n/, $@;