sub croak   { die  shortmess @_ }
sub confess { die  longmess  @_ }