sub log_die {
  progress_log( '***' . join ' ', @_ );
};
sub log_warn {
  progress_log( '???' . join ' ', @_ );
};
BEGIN{
  $SIG{__WARN__} = \&log_warn;
  $SIG{__DIE__} = \&log_die;
};