use Tie::STDERR \&mail_die;